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ALPHA-STRIP 






Afors, voiVâ. Alpha-strip est un jeu de lettres disons, 
euh... spécial. Le but du jeu n'est pas très difficile à 
comprendre une fois l'écran apparu. En effet Alpha- 
strip se propose de vous exercer les neurones avec un 
jeu de lettres. 
"C'est tout ?" hurlent en 
chœur les lecteurs. Bon, il 
y a tout de même un plus 



que je vous laisse dé- 
couvrir. 
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92' >M 

100 HODE liDGFïMT AZ:B0RDER 0:FOB >AZ 
1=0 TD 3:IHK I.OiNEIT 

110 LOCATE 1,25:PEN 2:PEIHT-PATIEHT >HP 

ez un mBn.,.*tim 2,2s 

120 KET 139, "cal I trbMe : boriîer 0:1d >XN 

k 0,0:ink l,26;iode 2"+CHR*£13) 

130 RESTORE 3300:DIH D(8),Di(B!,H0T >YN 

*(100),CI(25):PER=0 

140 FOR 1=1 TO 100:READ HDTtilhlŒI >DA 

T 

150 DIH FQ(99),FQ2199):REST0RE 3390 >GZ 

:I=1 

160 BEAD F1:1F F1=0 THFJ 170 ELSE H >DT 

EAD F2:FQ<n=Fl-8:FQ.2<n=F2-9:l=I+l 

:G0T0 160 " 

170FQ<n=0:SF=0 >LV 



190 RESTORE 1Q90:NC=9:G05UB 3000 

200 LOCATE 14,i:PBlNT*AK GHFFGGHF )IB 

AHEBHGNFGGHF" 
210 LOCATE U^iPRIHT'ABG GHDABGHF >WÏ 
C Hfi G GHBGGHD" 
220 LOCATE 14,3:PRINT"FGGCG FGG F >RQ 

Cl G G GGG* 
230 CALL fcBB4E:PL0T 640,4O0,3:TAG:H >Hll 



OVE 210,343 

240 PRIHT Cflt*U64);* 1967 C P C H >ZL 

AG. f. H.NIH";:TAG0FF 

250 A*=STBIHG*U0,CHR*(143)>:PEH 3: >YV 

FOR 1=2 TO 22:L0CATE 2,I:PRINT At:H 

EXT I 

260 HBUE 0,399:DRAU 192,399, 3:DRAU >HF 

192,1B,3:DHAW 0,16,3:DRAU 0,399,3 

270 «OVE 208,319:DRAH 639,319,3:DRA >UJ 

U 639,I6,3:DRAU 20B,16,3:DRAW 208,3 

19,3 

280 HOVE 208,239:DRAU 639,239,3:H0V >CD 

E 208,191:DBAH 639,191,3 

290 LOCATE 15, 12:PHIKT"TEflPS:" >ZV 

300 BESTOHE 1 190:NC=92:G0SUn 3000:R )KT 

ESTORE 3080:NC2=9Q:GOSUB 3230:TAG0F 

F: CALL LBB4E 

310 LOCATE 15,12:PEH 3:PR1HT'TEHPS: >PC 

":BEST0RE 1Q40:NC=4:G0SUB 3000 

320 TAGrPLOT 640,400,3:HOVE 16,40:P >KV 

R1HT'ABC:";:C=88:PL0T 640,400,1 

330 FOR 1=1 TO 4:H0VE C p 40:PRIHT"e'' >DT 

;:C=C*24:H0VE C,64:NEXT 

340 TAG0FF:CALL fcfiB4E:INX 1,16:1NK >ZD 

2,0:INK 3,26:HAB=0:F0R T=l TO 3000: 

HFJTT 




350 ' 



>RJ 



360 IF PARM THEH 370 ELSE 380 >XE ' 

370 CC=16:LL=23:T1="PRESSEZ UNE TOU )HH 

CHE...":PEN 3:GQSUB 3270:CALL &BB06 

:GOTO 420 

380 SD=l:CC=16:LL=16:Tt=*B0NJ0UR, J >HB 

E H'APPELLE":PEN 3;G0SUB 3270 

390 CC=17:LL=1B:T*="L0LA... PRESSEZ >DH 

UNE":PEH 3:G0SUB 3270 
400 CC=lB:LL=20:T9=*T0liaE POUR JOU >VH 
ER": GOSUB 3270 

410 CC=21:LL=22:T*="AVEC HOI...":GQ >YQ 
SUB 3270:CALL 1BB06 

420 GOSUB B20:CC=16:LL=21:T*=-VEUI- >PF 
TU DE U HUSIQUEVGOSUB 3270:CC=17: 
LL=23:T*="P0UR T'ENCOURAGER ?":GOSU 
B 3270 

430 K»=UPPER*UNKEY*):IF Kt="THEH >DD 
430 ELSE IF K»="0"THEN SD=0 ELSE IF 

K*="N"THEH SD=1:DI RSE 430 
440 ' — >BJ 

m 



t 



450 HAB=HAB»1 

4G0 RANDOHIZE TIKE:CALL LBB4E >TV 

470 IF PER=2 THEH GOSUB 520:CCM7:L >AQ 

L=2I:PEN 3:T*="KE DESESPEREZ PAS !" 

:GOSUB 3270:CC=19:LL=23:T**"CA «A V 

ENIR...":GOSUB 327O:F0R T=2 TO 1000 

:NEn 

460 IF PER=3 THEN GOSUB S20:CC=14:L >«P 

L=21:PEN $m**& JE HE VOUS PUIS 

PAS*:GOSUB 3270:CC=18:LL=23:T*='FAU 

T LE DIRE !...":G0SUB 3270:F0R T=l 

TQ 2OG0:NEKT 

490 IF SD=0 THEN EVERT 15,3 GOSUB 3 >GK 

4*0: El 

500 CT=39:TS=300:G0SUB 520 >W 

510 FOR 1=21 TO 39:PEH 1:L0CATE 1,1 >KV 

2:PB1NT CHRt(143);HEXT:G0T0 530 

520 UIND0UI2, 15,36, 15, 23:CLSt2:UIND >LH 

0Ut3,15,38,7,9:CLSt3:RETURN 

530 SOL=0:TL=0:FOR 1=1 TO 25:CX(I)= >KG 
0:HEXT 

540 PEN 3:SEST0RE 2950:01= IKTIBHDM >FA 

00>+l :LQH=L£N(H0T4 (C«) ) 

550 RAHDOHIZE TIRE >KZ 

560 CL=1NT(RHD»L0H)+1:IF CX(CL) = Î T >KV 

HEH 550 

570 CX(CL)=1:8EAD CO.LI >BH 

530 LGCATE CO.LI :PRiHT HIDXHDÎIICH >UG 

),CL,l);TL=TL+l 

590 IF TLOLOH THEH 550 ELSE UINDOU >RB 

11,16,39,17,17 

600 ' >ffi 

610 CC=14:LL=15:T*="QUEL EST CE HOT >IB 
?":GOSUB 3270:LOCATE 16,17:PBINT*> 



620 CLStl:PEH l:REPt=":CK=l:LK=l:L >TB 

0CATEtl,CK,LK:PR!HTH,CHRIU43):KK= 



630 GOSUB 760:Kt=UPPERIUNKEY»):IF >UB 

K*=""THEN 630 ELSE IF KI=CHR*(13ÏTH 

EN 660 ELSE IF K*=CHR*tl27)THEN 650 

ELSE IF K*=" "THEH 630 ELSE LOCATE 
ll,a(,UC:PRIHTIl,H*CHE*(143):REP*= 
R£P*4Kt:CK=0(U:KK=KK»l:GOTO 630 
640 KI=UPPERt(HKEY*):lFKI= a> THEN >HX 
630 aSE IF KI-CHR*(13)THEH 680 ELS 
E IF K*=CHRt(127)THEN 650 ELSE LOCA 
TEtl,CK,LK:PRINTtl,Kt+CHR*<143):REP 
*=REPI+Kt:CK=CK+l:KK=KK+l:GDTO 630 
650 CK=CK-L:IF CK<1 THEH CKM >VD 

660 IF KK<1 THEH KK=1 >PH 

670 L0CATEIl,CK,LK:PRINTtl,CHR$(143 >QJ 
)+CHR»(32):KK=KK-l:REP*=niD*(REPI,l 
,KK):GOTQ 630 

680 L0CATEI1,CK,LK:PRIHTI1," " >ZH 

690 IF SEPtOHOTKQDTHEH LOCATE 15 )VU 
,19:PRIHT SPACE«25):CC=14:LL=19:PE 
H 3:T»= I REP0NSE FAUSSE. . .":GOSUB 32 
70: GOTO 620 

700 LOCATE 15,19:PRIHT SPACE*(25):C >JK 
C=14:LL=19:PEN 3:T*="BRAV0 !":GOSUB 

3270:PER=0:S0L=1:GQT0 730 



710 ' 



m 



720 IF HAB<1 THEH HAB=1:PER=PERH >BT 
730 ON HAB GOTO 810,620,830,840,860 >HA 
,900,930,960 



740 ' 



ÏTB 



750 TS=TS-0.1:L0CATE 1,1:PEH 3:PBIH >RZ 

T TS:IF TS<=0 THEH 760 ELSE RETURH 

760 TS=TS-1:1F TSOO THEH RETURH EL >DL 

SE CT=CM:IF CT=20 THEH 770 ELSE L 

OCATE CT,12:PEH IsPAPER 3:PRIHT CHS 

*(215)+CHR*I32);PAPEB 0:PEH 3:TS=30 

0:RETURH 

770 LOCATE 21,12:PRIHT CHRt(143):L0 >QP 

CATEI1,CK,LK:PR1HTI1,CHR*(32):CC=14 

:LL=19:L0CATE CC+1,LL:PRIHT SFACEtt 

25»:T*="TH0P TARD...VPEH 3:G0SUB 3 

27O:F0R T=l TO 500:HEIT 

780 CC=14:LL=21:T*="IA REPONSE ETAI >VK 

Ti'tGOSn 3270 

790 CC=U:LL=23:T»=H0TI(CH):PEH 1:G >AV 

OSUB 3270:FOR T=l TO 3000:HEIT T:HA 

B=HAB-1:50L=0:GOTO 720 

>KJ 



B10 HOVE 160,40:GOTO 1010 
820 HOVE 136,40:GÛT0 1010 
830 HOVE U2,40:flJTD 1010 



840 HOVE 88,4O:G0T0 1010 >RK 

850 ' >TD 

860 IF S0L=O THEN 880 ELSE CC=14:LL >HJ 

=21:Tt="ATTEKTIQH, CA COHHEHCE A":P 

EH 1: GOSUB 3270:CC=i4:LL=23:T*="DEV 

ENIR INTERRESSAHT...":GOSUB 3270 

870 RESTORE 2160: HC=29: GOSUB 3010:R >YT 

ESTORE 3100:HC2=29:G0SUB 3230:G0T0 

450 

660 LOCATE 15,19:PRIHT SPACE*(25):C >GV 

C=14:LL=19:T*= , D0HHAGE...":PEN 1:G0 

SUB 327O:REST0RE 1290:NC=34 .-GOSUB 3 

010:RESTQRE 3100 :HC2=29: GOSUB 3230: 

GOTO 460 

890 . >TH 

900 IF S0L=1 THEH RESTORE 2470:HC=2 >UB 
6:G0SUB 30OO:REST0RE 3130:NC2=28:GO 
SUB 3230: GOTO 450 

910 RESTORE 2400 :NC=3: GOSUB 3010:RE MIL 
STORE 1630 :HC=25: GOSUB 3020:RESTOR£ 
3130: HC2=28: GOSUB 3230:GOTO 460 

920 » >TB 

930 IF S0L=1 THEN RESTORE 2770:NC=1 >TV 

0:GOSUB 3010:RESTQRE 3100:HC2=10:G0 

SUB 323O:GGT0 450 

940 RE5T0RE 2160 :NC= 10: GOSUB 3010:R >TA 

ESTORE 3100 :NC2= 10: GOSUB 3230: GOTO 

460 

950 ' - >TE 

960 GOSUB 520:CC=16:LL=15:T*="HES F >GE 
ELICITATIOHS ÎVGOSUB 3270:CC=18:LL 
=17:T*="TU AS REUSSI...": GOSUB 3270 
:CC=16:LL=19:T*= , V0ICI TA RECOHPEHS 
E:":GOSUB 3270:CC=14:LL=21:PEH 1:T* 
="IL EST INTERDIT DE BAVES" :GOSUB 3 
270 

970 RESTORE 2880 :HC =6: GO SUB 3010:RE >QV 
STORE 3170 :NC2=6: GOSUB 323O:F0R T=l 

TO 10000 :NEXT T 

960 CALL fcBB4E:GÛSUB 520:CC=16:LL=1 >EH 
6:T*="PARD0N, HAIS J'AI PAS":PEN 3: 
GOSUB 3270:CC=16:LL=18:TI="TSES ENV 
IE D'ATTRAPEE" :G0SUB 3270:CC=15:LL= 
2O:TI="FS0ID... ALORS, ON FAIT":G0S 
UB 3270:CC=17:LL=22:Tt="UHE AUTRE P 
ARTIE ?*:GOSUB 3270 

990 KI=UPPERt(INKEYt):IF KI=""THEH >BD 
990 ELSE IF KM"0"THEH PEH 2:L0CATE 

1,2S:PBIKT" EICUSE-H01, JE H 
'HABILLE.. .MNK 3,0:IHK 1,0:1NK 2, 
26:G0SUB 52O:PART=l:GOT0 300 ELSE C 
LS:EHD 
1000 . >ïd 

1010 IF S0L*1 THEH TAGsFKIlT" ";:TA >TF 
GOFF:GOTO 450 
I 1020 RESTORE 1040:NC=1:G0SUB 3000:T >XG 




AG:PH1HT"B"; :TAGOFF:GOTD 460 ELSE 4 
60 

1030 ' 

1040 DATA 64 



1050 DATA 65 

9 

1060 DATA 66 

F 

1070 DATA 67 




>XS 

66,ef,ff,ff,7e,70,38,1 >cu 

c1,c3,c3,c3,c3,c3,fb,f >cp 

cc,ec,6C,6c,6c,6c,ef,c >dz 

1C,3E,36,36,3£,36,B6,B >CF 



1080 

1090 DATA 65, 



1110 DATA 67, 

F 

1120 DATA 66, 



1130 DATA 69, 



1140 DATA 70, 



1150 DATA 71, 

F 

1160 DATA 72, 



1170 DATA 73, 

F 

1180 » 

1190 DATA 33, 

F 

1200 DATA 34, 

8 

1210 DATA 35, 



1220 DATA 36, 

F 

1230 DATA 37, 

1 

1240 DATA 38, 

C 

1250 DATA 39, 

7 

1260 DATA 40. 

F 

1270 DATA 41 



1280 ' 

1290 DATA 42 

F 

1300 DATA 43, 



1310 DATA 44. 





>TB 

FF,FF,FF,FF,F0,F0,F0,F >DD 

FF p FF,FF,FF,OF,OF,0F,0 >DU 

00, 00,00,00, FF,FF,FF,F >CL 

F0,FO,FO,F0, 00, 00,00,0 >BE 

0F,OF,0F,0F, 00,00,00,0 >BD 

F0,F0,F0,F0,F0,FO,F0,F >CH 

0F,0F,0f,OF,OF,OF,0F,0 >CK 

FF,FF,FF,FF, 00,00,00,0 >CH 

0F,0F,0F,0F,FF,FF,FF,F >DB 



>TC 

00,00,00,00,03,07,0F, 1 >BP 

00,00, 3F,FF,FF,FF,FD,F >CH 
00,00,80,CO,EO,EO,FO,F >BX 
1F,3F,3F,3F,7F,7F,7F,7 >CA 
F0,EO,CO,DC,C0,C9,Cl,C >CZ 
78,38, 3C,FC,1C P 5C,1C,1 >CX 
FF,FF,FF,FF,7F,3F,1F,0 >DT 
83,80,87,48,47,20,10,8 >BY 
,10,30,30,88,38,70,00,8 >BZ 



— — - >TD 

00,00,00,00,00,07,3F,F >8H 

01,01,06, 18. E0,EO,E0,Ë )BH 
01,01,01,00,00,00,00,0 >AH 



1320 DATA 45,80,40,20,18, 0E,0F,0F,0 >BÏ 
F 

1330 DATA 46,00, 00,00,00, 0O,8O,C0,E >BG 
-0 
1340 DATA 47, 00,01, 03,03,07, 07.0F.0 >BC 
F 

1350 DATA 48,FF,FF,FF,FE,FD,FD,FD,F >EF 
D 

1360 DATA 49,E0,B0,78 I F8,FC,FF,FF,F >DÏ 
F 

1370 DATA 50,00,82,44,28, 10,10,EF,E >BE 
F 

1380 DATA 51,0F,1B,1D,3E,3F,FF,FF,F >DC 
F 

1390 DATA 52,F0,F0,F8,F8,78,7C,7C,7 >CH 
C 

1400 DATA 53,0F,1F,IF,1F,1F,3F,3F,3 >CX 
F 

1410 DATA 54,FD,FD,FD,FA,FB,F3,F3,E >DH 
3 

1420 DATA 55,FF,FF,FF,FF,3C,C3,FF,F >DI 
F 

1430 DATA 56,EF,D7,D7,39 1 FE,FF,FF,F >DT 
F 

1440 DATA SAFF.FE.FE.FDJS.SF.FF.F >DT 
F 

1450 DATA 5e,7C,FE,FE,FE,FE,FE p FE,F >D2 
E 

1460 DATA 59,3F,3F,3F,3F,3F,3F,3F,3 >a 
F 

1470 DATA 60,E3,E3,E3,C1,C1,C1,C1,C >CJ 
1 

1480 DATA 61,FF,FF,FF,FF,FF,FF,FF,F >EP 
F 

1490 DATA 62,FF,FF,FF,FF,FF,FF,FF,F >EH 
F 

1500 DATA 63,FF,FD,FC,FC,F8 P FB,F8,F >DY 
8 

1510 DATA 64,FF,FF,FF,7F,3F,3F,7F 1 7 >DE 
F 

1520 DATA 65,3F, 3F,3F,3F,3F,3F,3F,3 >Cfl 
F 

1530 DATA 70,FF,FF,FF,FF,FF,FE,FE,F >EE 


1540 DATA 71,3F,3F,3F,3F,1F,1F,10,1 >CH 


1550 DATA 75,FD,FF,FF,FE,FE,FE,FC,F >EF 


1560 DATA 76,FC,FC,F8, 78,30,20,40,4 >CG 


1570 DATA 81,F8,F8,FO,F0,E0,E4,E4,E >CX 
C 
1580 DATA 82,40,40,40,40,40,40,40,4 >AF 



| 1590 >y H 

1600 DATA 67 ) FF,FF,00,00,FF,FF,FF,F >DC 
; F 
I 1610 DATA 68, FF.FF, 84,84, FF,FF,FF,F >DF 

F 

1620 DATA 69,FB,F8,08,08,F9, F9,FD,F >CV 

D 

1630 DATA 66,81,81,81,81,83,87,87,8 >BB 

F 

1640 DATA 72,8F,8F,9F,9F,9F 1 BF,BF,B >Dfl 

F 

1650 DATA 73,FF,FF,FF,FF,FF,FF,FF,F >FJ 

F 

1660 DATA 74,FF,FF,FF,FF,FF,FF,FF,F >EU 

F 

1670 DATA 75,FD,FF,FF,FE,FE,FE,FC,F >EJ 

C 

1680 DATA 78,FF,7F,7F,3F,3F,1F,0F,4 >CC 

F 

1690 DATA 79,FF,FF,FF,FF,FF,FF,FF,F >EC 

F 

1700 DATA 80,FF,FF,FF,FF,FF,FF,FF,F >EK 

F 

1710 DATA Bl,F8,F8,FO,F0,E0,E4 T E4,E >CF 

C 

1720 DATA 84,67,3F,3F,9F,9F,DF,FF,F >DV 

F 

1730 DATA BS.FF.FF.FF.FF.FF.FFJF.F >EU 

F 

1740 DATA 86,FF,FF,FF,FF,FF,FF,FF,F >EW 

F 

1750 DATA 87,FC,FC,FC,FC,FC,FF,FF,F >EG 

F 

1760 DATA 89, FF.FF, FF, 7F, 7F, 7F, 7F, 7 >DD 

F 

1770 DATA 90,FF,FF,FF,FF,FF,FF,FF,F >EU 

F 

1780 DATA 91,FF,FF,FF,FF,FF,FF,FF,F >EÏ 

F 

1790 DATA 92,FF,FF,FF I FF,FF,FF,FF,F >EÏ 

F 

1800 DATA 94,7F,7F 1 7F,7F,7F,7F,7F,7 >CD 

F 

1810 DATA 95,FF,FF,FF,FF,FF,FF,FF,F >EU 

F 

1820 DATA 96,FF,FF,FF,FF,FF,FF,FF,F >EH 

F 

1830 DATA 97,FF,FF,FF,FF,FF,FF,FF,F >Eï 

F 

1840 DATA 99,7F,7F P 7F,7F,7F,7F,7F,2 >CJ 



1850 DATA 100,FF,FF,FF,FF,FF,FF,FF, >EH 
04 

1860 DATA 101,FF,FF,FF,FF,FF,FF,FF, >EH 
02 

1870 DATA HK.FF.FF.FF.FF.FF.FF.FF, >EH 




1890 DATA 77,08,08,06,08,08,08,04,0 >BG I 2170 DATA 45, 80, «,20,18, 16, 11,10,1 >AC 

4 |o 

1900 DATA 83,02,02,01, 00, 00,00, 00,0 >AÏ 2180 DATA 48,00,00,00,01,02,02,03,0 >AG 

3 

1910 DATA 88,40,80,60,80,80,80,80,8 >BF | 2190 DATA 49,10, 50,90,38, 7C,FE,FF, F >CD 

F 

1920 DATA 93,80,80,60,80,80,60,60,8 >BG I 2200 DATA 50,00,62,44,28,10, 10, 39, F >BP 

F 

1930 DATA 96,80,60,80,80,80,60,60,8 >BN '2210 DATA 51, 10,14, 12,39, 7C,FC,FE,F >CE 

F 

2220 DATA 54,03,03,07,OB,OA,12,12,2 >BQ 

2 

2230 DATA 55,FF,FF,FF,FF,FF,3C,00,0 >0A 



2240 DATA 58,FF,EF,EF,C7, 01, 00,00,0 >CU 



1940 DATA 103,80,80,80.8 



1,80, >CJ 



1950 ' -- >YH 

1960 DATA 104,20,20,20,10,10,10,10, >BH 

10 

1970 DATA 105,04,04,04,08,06,00,10, >BV 

10 



2450 DATA 76,04,08,10,10,20,20,40,4 >AZ 



2460 ' >TE 

2470 DATA 66,81,81,81,81,82,84,84,8 )BG 

8 

2480 DATA 67,00,00,00,00,00,00,00,0 >A2 



2490 DATA 68,00,00,00,00,00,20,20,0 >AF 



2500 DATA 69,06,08,06,08,09,09,05,0 >BA 

5 

2510 DATA 73,00, CO.FF, FF, 7F,3F,OF,0 )CD 

7 

2520 DATA 74,00,Q0,FF,FF,FF,FF,FF,F >DB 



2530 ' 



>YC 



2540 DATA 72 r 88 r Bf ( 9F,91,90 f AO.AO.A >CJ 



2550 DATA 75, 05,7E,FF.,F2,E2, 02,02, >CP 



2250 DATA 57.FF, FF, FF, FE.FE, 72,02,0 >CB 

2 

2260 i >TC 

2270 DATA 42, 00, 00,00,00, 00, 07,38,C >AD 2560 DATA 78,00,40,40, 20,20, DO.DO.B >BH 



i960 DATA 106,02,02,01,01,01,00,00, >BN 

00 

1990 DATA 107,00,00,00,00,00,80,80, >BJ 

80 

2000 DATA 108,80,80,80,60,80,80,80, >CB 2260 DATA 46,00,00,00,00,00,80,40,2 >AJ 2570 DATA 79,03,01,00,00,00,00,00,0 >AG 

80 

2010 DATA 109,10,08,08,08,08,06,04, >BW 2290 DATA 47,01,01,02,02,04,04,08,0 >AD 

04 6 

2020 DATA 110,10,10,10,10,20,20,20, )BY 2300 DATA 52,10,10,08,08,88,84,84,8 >BA 

20 4 

2310 DATA 53,08,10,10,10,10,20,20,2 >AE 


2320 DATA 58,64,02,02,02,02,02,02,0 >AV 
2 

2330 DATA 59,20,20,20,20,20,20,20,2 >AL 



2340 DATA 60,22,22,22,41,41,41,41,4 >AB 

1 

2350 DATA 61,00,00,00,00,00,00,00,0 >AH 



2360 DATA 62,00,00,00,00,00,00,00,0 >AQ 



2370 DATA 63,05,05,04,04,08,08,08,0 >BH 

8 

2380 DATA 64,01,01,81,41,21,21,41,4 >AE 

1 

2390 DATA 65,20,20,20,20,20,20,20,2 >AP 



2400 DATA 67,00,FF ( 00,00,FF,FF,FF,F >CH 

F 

2410 DATA 68,00,FF,84,84,FF,FF,FF,F >DG 

F 

2420 DATA eg.OB.FB.W.Oe.FQ.re.FD.F >CT 

D 

2430 DATA 70,61,81,81,81,01,02,02,0 >BC 

I 2440 DATA 71,20,20,20,20,10,10,10,1 )AC 



2030 DATA 111,80,40,40,40,20,20,20, >BR 

10 

2040 DATA 112,60,80,80,80,80,80,80, >CA 

80 

2050 DATA 113,04,04,04,04,04,08,06, >BG 

10 

2060 DATA 114,20,20,20,20,30,70,78, >CD 

F8 

2070 DATA 115,10, 10,10,10,30, 76, FC, >CA 

FC 

2060 DATA 116,60,60,80,60,40,40,20, >BU 

20 

2090 DATA 117,00,00,00,00,00,01,03, >BH 

03 

2100 DATA 118,10,11, 21, 23, 7F,FF,FE, >DH 
FC 

2110 DATA 119,FB,F8,F8,FO,B0,20,20, >CJ 

20 

2120 DATA 120,FE,FF, 77,33,31, 10, 10, >CC 

10 

2130 DATA 121, 10,10, 08,84,C2,FF,7F, >CJ 

3F 

2140 DATA 122,00,00,00,00,00,80,00, >BB 

CO 

2150 » >TA 

2160 DATA 43,01, 01,06,18, FO.10,10,1 >AH 



2580 DATA 80,FC,F8,F0,F0, 60,60,60,6 >CD 


2590 DATA 81,04,04,08,08, 16, 1A,IA,1 >BP 
2 

2600 DATA 84,90,4O,4O,A0,E0,A0,8O,8 >BD 


2610 DATA 85,00,00,00,00,00,00,00,0 >AU 


2620 DATA 66,60,60,60,60,60,90,90,9 >BZ 


2630 DATA 87,02,02,02,03,03,00,00,0 >AL 


2640 DATA 89,60,80,80,40,40,40,40,2 >BH 


2650 DATA 90,00,00,01,01,01,02,02,0 >AD 
2 

2660 DATA 91,90,90,08,08,08,04,04,0 >BV 
4 

2670 DATA 92,00,00,00,00,00,00,00,0 >AT 


2680 DATA 94,20,20,20,20,10,10,10,1 >AQ 
1 

2690 DATA 95,02,04,04,04,06,06,08,0 >BV 
8 

2700 DATA 96,04,02,02,02,01,01,00,0 >AJ 


2710 DATA 97,00,00,00,00,00,00,80,6 >AQ 


2720 DATA 99.1E, 20,20,20,20,20,20,2 >BG 

I 2730 DATA 100,08,08,04,04,04,04,04, )BL 



2740 DATA 101,00,00,01,01,01,02,02, >BE 

02 

2750 DATA 102,88,87,00,00,00,00,00, >BF 



2770 DATA 43,01, 01, 06,18, E0, 00,00,0 >BC 



2780 DATA 45,80,40,20,18,06,01,00,0 >AF 



2790 DATA 48,00,00,00,01,02,02,02,0 >AH 

2 

2800 DATA 49,00,40,80,00,00,00,30,5 >AA 

6 

2810 DATA 50,00,82,44,28,10,10,10,1 >AÏ 



2820 DATA 51,00,04,02,01,00,00,18,3 >AP 

4 

2830 DATA 54,02,O2,07,OB,0A,12 ) 12,2 >BW 

2 

2840 DATA 55,30,00,00,00,C3,3C,00,0 >BN 



2850 DATA 56,10,28,28,06,01,00,00,0 >BQ 



2860 DATA 57,18,01, 01, 02.8E, 72,02,0 >BB 

2 



2870 ' 



>TK 



2880 DATA 72,88,88, 90,90,90,A0,A0,A >BK 



2890 DATA 73,00,00,00,00,00,01,07,0 >AH 

3 

2900 DATA 74,00,00,00,00, 00, F8,FE,F >BJ 

C 

2910 DATA 75,05,02,02,02,02,02,02,0 >AA 

2 

2920 DATA 79,01,01,00,00,00,00,00,0 >AD 



2930 DATA 8O,F8,F8,F0,F0, 60,60,60,6 >BZ 



2940 ' 



>TH 

2950 DATA 15,7,16,9,17,7,18,9,19,7, >JZ 

20,9,21,7 

2960 DATA 22,9,23,7,24,9,25,7,26,9, >JG 

27,7,28,9 

2970 DATA 29,7,30,9,31,7,32,9,33,7, >JA 

34,9,35,7 

2980 DATA 36,9,37,7,38,9,39,7 >ÏC 



2990 ■ >K 

3000 CALL LBB4E >VF 

3010 NEHOBY 20000:SYMBÛL AFTER 32 >AG 

3020 FOB K=l TD HC >LD 

3030 READ NK,Dt(l>,DI(2>,D*(3>,D*<4 >BC 

),D*<5),M(6),Dt<7),D*(8) 

3040 FOB 1=1 TO 8:D(I)=VAL("l'tDI(I >LC 

)>:NEXTI 

3050 SYHBOL HK,DI1),D(2), 0(3), D(4), >UK 




D(5),D(6),D(7),D<B> 

3060 NEÏT K:8ETURN >HI 

3070 • >ÏC 

3080 DATA 33,6,3,34,7,3,35,8,3,36,6 >BV 

,4,37,7,4,38,8,4,39,6,5,40,7,5,41,8 

,5,44,7,6 

3090 DATA 77,4,12,82,9,12,83,4,13,8 >FY 

8,9,13 

3100 DATA 43,6,6,45,8,8,48,5,7,49,6 >BF 

,7,50,7,7,51,8,7,54,5,8,55,6,8,56,7 

,8,57,8,8 

3110 DATA 42,5,6,46,9,6,47,4,7,52,9 >RB 

,7,53,4,8,58,9,8,59,4,9,60,5,9,61,6 

.9 

3120 DATA 62,7,9,63,8,9,64,9,9,65,4 >DQ 

,10,70,9,10,71,4,11,76,9,11 

3130 DATA 67,6,10,68,7,10,69,8,10,6 >FK 

6,5,10 

3140 DATA 78,5,12,81,8,12,84,5,13,8 >TU 

5,6,13,86,7,13,87,8,13,89,5,14,90,6 

.14 

3150 DATA 91,7,14,92,8,14,94,5,15,9 >VY 

5,6,15,96,7,15,97,8,15,99,5,16,100, 

6,16 

3160 DATA 101,7,16,102,8,16 >TJ 

3170 DATA 72,5,11,73,6,11,74,7,11,7 >TH 

5,8,11,79,6,12,80,7,12 

3180 DATA 93,9,14,98,9,15,103,9,16 >ZV 

3190 DATA 104,5,17,105,6,17,106,7,1 >BQ 

7 

3200 DATA 107,8,17,106,9,17,109,5,1 >DH 

8, 110,6,1B, 111,8,18, 112,9, 18,113,5, 

19,114,6,19 

3210 DATA 115,8,19,116,9,19,117,4,2 >EC 

0,118,5,20,119,6,20,120,8,20,121,9, 

20,122,10,20 

3220 * >H 

3230 TAGOFF:PAPER 3:PEN 0:CAE=33 >AE 
3240 FDB 1=1 TO K2:R£AD CAR, COL, Ll >RN 
G:LOCATE C0L,LIG:PR1H7 CHR$(CAR) 
3250 CAR=CAR+1:JŒXT URETURN >TG 

3260 ' >TD 

3270 FOB i=l TO LEN(T*):LOCATE CC+! >CD 
,LL:PRIHT HID*(T*,[,l)tCH8l(143):fF 
SD=1 THEN SOUND 1, IHT(RHD*300)i50, 
1,11 

3280 FOB T^l TO 50:NFJT T:HEXT I:LO >ffl 
CATE CC+I,LL:PRINT" ■:RETUBN 

3290 ■ >ïg 

3300 DATA MAISON.JARDIN.LIVIE.JOYEU >TB 
I.FILLETTE, DOIGT, GYMNASTIQUE, AMOUR, 
CAMION, DISQUETTE, DISCOURS, ORDINATEU 



3310 DATA GRENOUILLE.POISSQN.CRAYOH >UA 

,ROBINET,TABOURET,NYSTERE,DENT,BADI 

O.HAISON.AVIQN, POTENCE, FJFANT.LUMIE 

RE 

3320 DATA AHPHORE,1MTR1NE,KLAXON,PO >BC 

MME, LUNETTE.GAZ, STYLO, ECflAN,CLAVIER 

, CÀLCULATfi I CE, ARHO I EE, POUBELLE, ECOL 

E 

3330 DATA MAGASIN, SOULIER.BOUTEILLE >JC 

, WAGON, OUÏE, YAOURT, QUEUE, JAHBON, BAL 

AHCE, ACCENT, PANTALON, CHA I SE, ETAGE 

3340 DATA QUARTZ,FLEUR,TONNEAU,Cia >TF 

, JUSTICE, SCH I STE, ZERO , YACH, V I LLE, JE 

U , PROGRAMME, BAS ! C , MUS I QUE , ROBOT , FUS 

EE 

3350 DATA FRANCE,AHSTRAB,BATEAU,nOR >JJ 

T.TELE, FLUTE, CATALOGUE, TELEPHONE, LO 

G1C1EL, PERIPHERIQUE, INFORMATIQUE 

3360 DATA 0CEAH,MER,SOLE]L,SYHPHOHI >HU 

E,COULEUR,OISEAU,ARC,0NDE,KISS0N,!1G 

NDE,HIST0IRE,B0ÏE,TA8LE,H0NTAGNE 

3370 DATA PARAPSYCHOLOGIE, EAU, HEHO I >RU 

RE,LUTIN,TEHPS,PRIÏ,CDPYRIGHT,CASSE 

HE, DIEU 

33eo . >TG 

3390 DATA 79,29,88,29,79,59,88,29,9 >JF 

7,29,103,29,114,29,121,64,114,99,15 

0,29,167,20,150,59,198,44,187,44,23 

3,69,221,89,292,29,327,29,292,59,32 

7,29,366,29,387,29,434,29,459,59,43 

4,99,114,29,127,29 

3400 DATA 114,29,142,29,114,29,150, >BG 

29,114,29,167,29,114,29,177,29,114, 

29,167,29,114,29,150,29,114,29,142, 

29,114,29,434,29,114,29,387,29,114, 

29,346,29,114,29,327,29,114,29,346, 

29,114,29,327,29 

3410 DATA 114,29,292,29,114,29,142, >HH 

49,114,49,142,49,114,49,108,49,327, 

49, 108,49,327,49, 127,49, 150,49, 127, 

49,150,49,114,49,366,49,114,49,366, 

49,142,49,327,49,142,49,327,49,121, 

49,387,49,121,49,387 

3420 DATA 49,150,49,366,49,150,49,3 >PQ 

66,49,167,49,459,49,159,49,167,49,4 

59,49,366,49,434,49,366,49,434,49,4 

10,49,1081,49,410,49,1061,49,292,10 

9,0 

3430 ' >TC 

3440 DI >ph 

3450 IF(SQ<1)AND 7)=0 THEN EhRETUR >UT 

N ELSE SF=SF+1:IF FQ(SF)=0 THEN SF= 

1 

3460 SOUND 1,FQ(SF)(2,FQ2(SF),5:S0U >UQ 

HD 2,1/2, FQ2(SF),5:S0UND 4,FQ(SF),F 

Q2(SF),7:G0T0 3450» 



w 

tables de multiplication 



10 1 p rese >u \ 

ntation 

20 HODE 2:G0SUB 80 >HJ 

30 MODE liGOSUB 60 MU 

40 HODE O:G05UE 80 >HJ 

50 GOTO 100 >BE 

50 RODE 2 >BK 

70 1HK 0,0:!HK 1,26:B0RDER >VL 

60 LOCATE S.lSiPBIhT'E.A.O.VFOR tp >ZP 
=1 TO llOûîHOTtCLS 

90 EETURH >TH 

100 LOCATE 2,6:PR1HT"TABLES DEVFÛR >KC 

TP=1 TO 1000 :KFJT: LOCATE 5,i3:PEIH 
T"HULTIPL1CAT10NS , :F0R TP=1 TO 2000 

:NEZT 

110 LOCATE 10,Z3iPHIHT"i C.Pico I* >CV 

120 LOCATE 5 t 2iPB]HT , 4 X ?":LOCATE >W 

15,5:PBIKT"= 8" 

130 LOCATE 3,15:PBIHT"3":L0CATE 13, >QL 

10iPRIHT"7" 

1*0 LOCATE 2,21:PR1KT"7 I =*:LOCA >DH 

TE i0,17:P8I"T»2 I 2 =■ 

ISO F08 TP=1 TO 1S00:HEIT >TJ 

160 BEAD l:IF 1*-1 THEK RESTORE 180 >LH 

:G0TO 200 

170 BEAD HîSOUHD 1,1*2,H,5:S0UND 2, >HR 

1/2,H T 5:S0UW> 4,l,M,7:G0TO 160 

1B0 DATA 478,20,379,20,319,20,379,2 >BQ 

0,358, 20, 284, 20,239,20, 00,5, 239,25, 

319,20,253,20,213,20,253,20,239,20, 

319,20,00,5,319,30,00,15,478,20,379 

,20,319,20,379,20,356,20,204,20,239 

,20,00,5,239,25,319,20,253,20,213,2 

0,253,20,213,20,00,5,239,20,00,10 

190 DATA 239,55,00,25,319,80,284,80 >JH 

,319,20,356,20,379,20,426,20,379,40 

,478,40,239,40,284,40,319,40,253,40 

,239,60,-1 

200 ' eipli >K 

cation 

210 HOC 1,0:IHKO,I3:BORDEB 3:H0DE >CT 

2 

220 LOCATE 30,2:PBHrT'TABLES DE HUL >RF 

T I PLI CAT1 OltS" t LOCATE 2B,3:PBllfT"=== 



230 LOCATE 5,5:PBIHT*Ce prograue p >JH 
eriet d'apprendre tes tables étape f 



Pas la peine d'en faire 

une tartine : le titre 
explique bien ce dont il 

s'agit. Il y a 2 types 
d'exercices : ta révision 

d'une table et une 
séance où l'élève fait à 
la fois les questions et 
tes réponses avec des 
résultats graphiques à 

l'appui. 

Le mode d'emploi est 

inclus dans le 

programme. 




par étape d'une lanière 
240 LOCATE 5,7iPRlNT- logique et pro ) 
gressive,en choisissant une des qua 
très options. 

250 LOCATE S,0:PB1HT V I1 est prévu p ) 
our être utilise par l'enfant d'une 
façon sinple et continue. 
260 LOCATE 5,ll:PRIHT*Lorsque la ta ) 
ble sera apprise, les parents pourra 
nt vérifier le travail fait, 



} 270 LOCATE S.lSîPRIHT'en passant d' >BY 
une étape a une autre, grâce aui opt 
Ions proposées.!! sera donc 
280 LOCATE 5.15:PR!NT'preferable,au >JA 
depart.de choisir l'option A pour 
permettre a l'enfant de 
290 LOCATE 5,17:PRIKT'progresser lo >UU 
glqueient, jusqu'au dernier aode.san 
s retour possible, les trois 
300 LOCATE B,i9:PRHTT"autres avBdt >HK 
un accès direct pour rappel ou ver i 
fi cation. 

310 LOCATE 5,24:PBIhT > Presser une t >UJ 
ouche 

320 CALL &B806:PBIKT CHBN7) )UC 

330 CLS:LQCATE 5,5:PBIHT*Apres aval >TK 
r tape un chiffre, s'il y a un SIGNA 
L SONORE.cela signifie que le 
340 LOCATE 5,7:PBIKT"HESULTAT EST K >ZA 
0H0LOGUE. Dans le cas contraire, appu 
yer la touche <0fTES>. 
350 LOCATE S,9:PBINT*En option B.il >HC 
est deunde de choisir la vitesse 
d'affichage en secondes 
360 LOCATE S,ll:PBIHT*(de ! a 9) po >HW 
ur permettre de reciter la table. 
370 LOCATE 5 T 13:PBInT"A la fin des >IB 
options C et D, le notbre d'erreurs 
faites est affiche. 

380 LOCATE 5,15:PBIhT'L'option D es >HU 
t une suite de 10 aultiplicaticns I 
alssees au choix de l'utl- 
390 LOCATE 5,17:PRJhTlisBteur<iult >PH 
lplication par possible). Au trois 
le» essai, si le résultat 
400 LOCATE 5,19:PfilhTn'est pas tro MIB 
uve il s'affichera tout seul. Les re 
panses sont visibles sur 
410 LOCATE 5,21:PRIhTun graphique >JH 
siiple, le but étant de ne pas depas 
ser la ligne Très Bien. 
420 LOCATE 5,24:PRIHT'Presser une t MIT 
ouche 

430 CALL fcBB06:PRIHT CHRK7) >VE 

1000 ' k >ID 



1010 CLS:INK 1,0:IHC 0,13:B0BDEB 3: >NP 
k HODE 2:L0CATE 40,3:PIIh7 , BEIW 



1020 LOCATE 36,4:PRINT" " 

1030 LOCATE U,8:PH!HT"Derou!eient 
noria 1 du prograiie';LOCATE 60,7:PR 
INT CKR»(24)" "CHR*(24):L0C 

ATE 60,8:PB)NT CHRl(24)" taper A "C 
HR*(24):L0CATE 60,9:PRINT CHB*<24)" 
"CHR* (24)' — en inversion 

vldeo(fond noir) 
1040 LOCATE 14,12:PH]NTBeciUtion 
de la table':LOCATE 60,11:PR!HT CHR 
*(24)" "CHR((24):L0CATE60, 

12:PR1HT CHR»(24)" taper B "CHRH24 
):L0CATE60,13:PRINT CHR*(24)" 

'CHR* (24) 
1050 LOCATE 14,16;PRINT"Deiande l'i 
ntroduction du resu!tat":LOCATE 60, 
15:PRIKT CHB»(24)" "CHRH24 

):L0CATE 60,16:PBINT CHR*™ 1 tape 
r C «CHR*<24):LQCATE 60,17:PRIKT CH 
Bl(24>" "CHR*(24> 

10G0 LOCATE 14,20:PRIIfT*Entree de t 
ous les chiffresMOCATE 60,19:PRIH 
TCHR1I24)" "CKR*(24):L0CÀT 

E 60,20:PRIIfr CHRK241' taper D "CH 
R*(24):L0CATE 60,21:PR[NT CHR*(24f 
"CHR* (24) 

1100 '— - definitio 

n fenêtres — 

1110 HINDOU 11,1,36,6,17 'fenêtre h 

aut gauche 

1120 HINDOU 12,39,66,7,16 'fenêtre 

haut droite 

1130 HINDOU 13,66,60,7,16 'fenêtre 

haut droit (coipleient pour résulta 

t) 

1140 U1ND0H 14,42,80,20,40 'fenêtre 

bas droit 

1150 HINDOU 15,1,36,22,40 'fenêtre 
bas gauche 

1160 HINDOU 16,1,36,20,21 'fenêtre 
■llleu gauche 

1170 HINDOU 17,1,36,20,40 'fenêtre 
couvrant lilieu et bas gauche 

1200 ' choiï d 

e l'option — 

1210 GOSUB 21000 
1220 GOTO 21020 

1230 ' affichage hoiologue de I 

'option en Inversion video 

1240 IF 0PT*="A" THEN LOCATE 61,8:P 

RINT CH»*(7);" A ":F0R tp=l TO 

50O:NEÏT 

1250 IF 0PT*='B" THEN LOCATE 61,12: 

PRINT CHR*(7);" B ":F0R tp=l TO 

500:NEIT 

1260 IF QPT*="C" THEN LOCATE 61,16: 




m * 



PRINT CHR*(7) ; " C ":F0R tp=l TO 
500:NEXT 

1270 IF 0PT*="D" THEN LOCATE 61,20: >RP 
PRINT CHR*(7);" D ":F0R tp=l TO 
500: NETT: GOTO 1300 

1300 ' tableau couun pou >IG 

t toutes les options 

1310 CLS:F0R y-l TO 40:L0CATE 37,39 >RE 
:PR1NTCHR*(149):NEÏT 
1320 DRIGIH 0,UO:D8AU 800,0:0RIGIN >VP 
0,3SO:DRAH 600,0 

1330 LOCATE 1,1:PRINT CHR$(24);SPAC >KF 
Et(36);CHR$(24):LOCATE 1 , 2 : PR I HT CH 
Rl(24); ( i TABLES DE HULTIPLICAT 
IONS * "; CHR* (24): LOCATE i,3:P81H 
T CHR*(24)jSPACE*(36);CHB*(24) 
1340 LOCATE 36,1:PRINT CHSI(24);SPA >ZH 
CE*(43);CHR*(24):L0CATE 36,3:PRIHT 
CHRt(24);5PACEI(43);CHRt(24):IF OPT 

*="D" THEN 20000' pour coi 

pleaent tableau No4 

1350 ' tableau cohu >TB 

n pour Nol,2,3 

1360 LOCATE 36,2:PBINT CHRN24);" >RB 
TABLE DE HULTIPLICAT10N PAR: 
*;CHR*(24) 
1370 CLS I5:L0CATE 14,22:PRINT"TABL >KD 
E DE :» 

1380 NBC=2:i=24:y=22:GÛSUB 21400 >AF 
1390 TA=VAL(chl) >LG 

1400 IF TA<1 OB TA>20 THEN 1370 >HL 
1405 IF TA(10 THEN LOCATE 2S,22:PRI >PH 
NT CHR* (128) 

1410 FOR tp=l TO 750:NBfT:CLS 15 >ZB 
1420 1=21 :1F L£N(TAt)-2 THEN ï=i+i: >UT 
PRINT SPACEtd) 
1430 GOSUB 21500 >DC 

1440 ' option pour dire >TB 

et tableaui No2 ou 3 

1450 IF OPT»='B" THEN 10000 >TÏ 
1460 IF OPT*="C" THEN 15000 >TE 

5000 * tableau Hol et su >IH 

ite sans option 

5010 FOR HU=1 TO 10:PRIWTI2,TABtlO) ÏFE 
;TA;CHRH120);HUiTABI22)'^;:PRINTI 
S.TAiHU 

5020 PBINT:NEÏT >LH 

5030 LOCATE 48,22:PRINT"Pour contin >IP 
uer — > , ;CHB»(24);' S ■;CHR*(24) 
5040 GOSUB 21300 >DB 

5050 IF tou*="S"THEN PRINT CHR*(7): >XU 
. GOTO 10000 ELSE 5040 
>Crl| 10000 •— table >CG 



*au No2 -- 

10010 CLS I2:CLS I3:CLS I4:L0CATE 4 >GC 

6,21:PR]NT"Eecite la table et verif 

ie" 

10020 LOCATE 49,23:PRINT'le résulta >TN 

t affiche." 

10030 ' (tableau Ho2) a >CK 

f fichage ligne/ligne 

10040 LOCATE 3,21 :PfilHT"duree d'att >RB 

ente entre les lignes" 

10050 CLSI5:chl=":L0CATE 11,23:PRI >EH 

NT"en seconde(s): ";'REH choii du t 

eips 

10060 NBC=l:i=26:y=23:G0SUB 21400 >BE 

10070 ch=VAL(cht) >LK 

10080 IF ch<l OR ch>9 THEN 10050 >IV 

10090 t^ch»1000:rlU=i >PD 

10100 FOR t=0 TO t:NEIT:GOSUB 21200 >CH 

10110 CL5I4 >RG 

10120 LOCATE 4B,20:PRINT"Pour recoi >AE 

■ancer ->"jCHR*l24);" R ";CHRt(24) 

10130 LOCATE 48,24:PRINT"Pour conti >ZT 

nuer -->"iCHR*(24);' S ";CHR*(24) 

10140 IF OPT^'A* GOTO 10150 ELSE L >EL 

OCATE 46,22:PR[HT'Pour retour Henu 

->";CHI*<24);" H ■;CHR*(24);G0SUB 

213OO:G0T0 10170 

10150 GOSUB 21300 >LN 

10160 GOTO 10180 >BA 

10170 GOSUB 21320 >LT 

10180 IF T0U*="8" THEN PRINT CHRt(7 >VH 

):CLSI2:CLSt3:CLSt4:CLSI5:G0T0 1000 



10190 IF TOU*="S" THEN PRINT CHRt(7 >AE 

) :GOTO 15000 ELSE 10150 

15000 '-- Table >DB 

au No3 

15010 GOSUB 21600 >LR 

15020 CLSI3:CLSt4:CLSI5:CLSIG >TF 

15030 LOCATE 45,21:PBINT*Tape toi ■ >NH 

eie le Résultat avec" 

15040 LOCATE 54,23:PRINT l Ies touche >LE 

s." 

15050 FA=0:i=67:y=7:NBC=t:HU=l:TA=T >UI 

A:GOSUB 21800'BFJt définition des va 

riables 

15060 cn*=":LDCATE i, y: PRINT " i: p >UU 

RINTCHRK242); 

15070 GOSUB 21420 >LÏ 

15080 BES=VAL(ch») >HF 

15090 IF RES=HUm THEN 21700 ELSE >UH 

LOCATE i-l,y:SOUH) 1,200,50,6:FA=FA 

♦1:PR1NT RES;:FOB tp=l TO 750:NEIT 

15100 IF Hll>10 THEN 15130 >RT 

15110 GOSUB 21610 >LU 

I 15120 GOTO 15060 >BD 



- coipleien >CJ 



15130 GOSUB 22000 >LP » 

15140 CLSI4:L0CATE 48,20:PfilNT"Pour >KK 

recouancer -->*;CHB*(24);" S *;CH 
RI (24) 

15150 LOCATE 48,24:PBINT"Pour contl >ZA 
nuer ~>»;CHR*(24J;" S ";CHRI(24) 
15160 IF QPTI=*A" THEH GOTO 15170 E >PB 
LSE LOCATE 4a,22:P8INT*Pour retour 
Menu ->";CHtt*(24);" H *;CHR*<24kG 
OSUB 213O0:G0T0 15190 
15170 GOSUB 21300 >LU 

15180 GOTO 15200 >BF 

15190 GOSUB 21320 >LA 

15200 IF TOU*="R" THEH PEINT CHR$<7 >DF 
):CLSt2:CL5l3:CLSI4:CLSI5:CLSI6:G0T 
15000 

15210 IF TOU*="S* THEH PI1HT CKR*(7 >ZH 
i:CLSI2:CLSI3:aSI4;G0T0 20000 ELSE 

15170 
20000 . optl ^ 

on No4 - 

20010 ' 

t tahleau Ho4 - 

20020 Z^l:FA=0:CLSIl:CLSi7:»=3:y=17 >DB 

:v=*:w=y:LOCATE 41,17:PBINT"Tables 

a 20 / Multiplicateur a 10* 

20030 OIIGIH 23,125:MAU 0,200:QB1G >PA 

IN 10,141:DEAU 2SO,O:0RIGIH 16,324: 

DRAU 4,6:0BIG]H 27,324:DBAU -4,6 

20040 OBIGIN 22,125:DBAU 0,2O0:0ï!G >DQ 

1H 261,137:DBAU 7,3;0R!GIH 261,145: 

DRAU 7,-4 

20050 LOCATE 2,5:PRIlfT"y":L0CATE 35 >GC 

,17:P8INT*«.*:G0SUB 22400 

20060 LOCATE 5,21:PRINT*Vers i = no >HG 

■bre de réponses 

20070 LOCATE 6,23:PRINT"Vers y = re >D0 

ponses justes 

20080 OBIGIN 104,135:DRAW 0,10:ORIG >FQ 

IN 104,303:DRAU 0.--JO: LOCATE 12,18: 

PRINT *TB* 

20090 OBIGIN 176,135:DBAU 0,10:OBIG >EH 

IN 176,303:DRAU 0,-10:LDCATE 22,16: 

PII 1 NT "P" 

20100 OBIGIN 24B,135:DBA« 0,10:OBIG >AK 

IN 248,303:DEAU 0,-10:L0CATE 31,18: 

PB1NT "HMOCATE 10,6:PBINT"10 repo 

nses justes" 

20110 OBIGIN 15,304:DftAW 240,0 >H 

20120 OBIGIN 365,160:DBAV 200,0:011 >DT 

GIN 565,160:DBAU O,110:0KIGIH 565,2 

70:DBAV -20O,0:0B1GIN 365,270:DRAV 

0,-110 

20130 LOCATE 52,6:PBIHT "Opération >NC 

No';Z 

20140 LOCATE 42,20:PBlNT*Tape toi ■ >VU< 




eie les chiffres puis le 1 

20150 LOCATE 42,22:PfilNT*resultat.T >VQ 

ape <ENTES> s'il n'y a pas* 

20160 LOCATE 42,24:PR(NT*de signal >TG 

sonore.* 

20170 ESS=1:L0CATE 38,2:PRINT CHR*( >U 

24);' tu as trois essais pour trou 

ver *;CH8*(24);* NoVLOCATE 78,2:PR 

INT CHB*(24);* ";CNR*t24) 

20160 GOSUB 21900 >LZ 

20190 i=50 :y= 10 :HBC=2: GOSUB 21400 >BD 




SUR MINITEL 

36 15 

Code M HZ 



20200 TA=VAL(ch»):lF TA=0 AND chtO 

■0* THEH GOTO 20190 

20210 IF TA<0 OR TA>20 THEN LOCATE 

■ r y:PBIHT CHR$(128);CHRt(128):G0T0 

20190 

20215 IF TA<10 THEN LOCATE i+l,y:PB 

INT OU» (128) 

20220 LOCATE 54,10:PB1HT CHRK120): 

i=58: y= 10 :HBC=2: GOSUB 21400 

20230 HU=VAL(ch*):IF HU=0 AHD ch»<> 

■0* THEN GOTO 20220 

20240 IF HU<0 OR NU>10 THEN LOCATE 

i,y:PBINT CHR*(128);CHR*(128>:G0T0 

20220 

20245 IF HUUO THEN LOCATE i+l,y:PR 

INT CHRt(128) 

20250 LOCATE 63,10:PBINT CHRI(61):i 

=66:y=10:G05US 21600 

20260 GOSUB 21900 

20270 GOSUB 21400 

20280 BES=VAL(ch*):IE RES=0 AHD chl 

0*0" THEN GOTO 20270 

20290 IF BES=TA»1W THEH LOCATE i-l, 

y:PB!NT RES:LOCATE 56,12:P8INT" JUS 

TE *:FOB tp=l TD 2S0O:NEIT:ESS=l:v= 

vM :«■--«- 1:G0SUB 22300:G0T0 20320 

20300 LOCATE i-l,y:50UHD 1,200,50,6 

:PRINT BES;:FA=FA*l:irjCATE 56,12:PB 

INT* FAUI ":FOB tp=l TO 500:HEIT:ES 



S*£SS*1 

20310 IF ESS=4 THEH LOCATE i-l,y:Pfi >IV 

IHT TA«fJ:LOCATE 54,t2:PBINT* BESUL 

TAT *:FOR tp=l TO 2000:HEJT:v=vH:G 

OSUB 2232O:ESS=3:G0SUB 21900:G0T0 2 

0320 ELSE v=v+l:GDSUB 2231O:G0T0 20 

250 

20320 IF TA=rîU GOTO 20360 >TB 

20330 LOCATE 52,12:F0R tp=l TO 1000 )K8 

:HEIT:PBIhT*IIAIS EGALEMENT" 

20340 LOCATE 49, 14:PBIHT HU:LOCATE >UB 

54,14:PBINT CHRt 1120): LOCATE 57,14: 

PBINT TA:LOCATE 63,14:PBINT CHR*(61 

):LOCATE 65,14:PBINT TA*HU 

20350 FOR tp=l TO 3000:NEXT >VU 

20360 IF 2=10 GOTO 20370 ELSE Z=Z*1 >BG 

:CLSt2:CLSI3:G0TO 20080 

20370 GOSUB 22000: CLSI4: LOCATE 48,2 >CT 

0:PBIHT"Pour recooancer — >";CHB*< 

24);* B *;CHR»(24) 

20380 LOCATE 4B,24:PBIHT*Paur retou >AE 

r Henu ->*;CHR»(24);" H ";CHRM24) 

20390 GOSUB 21300 >LU 

20400 GOSUB 21320 >LP 

20410 IF TOU*=*B* THEH PBIHT CHBK7 >JE 

):CLSI2:CL5l3:CLSI4:CLSt5:GOT0 2000 

ELSE 20390' 

21000 QPT*=IMKET*:IF 0PT*=" THEN 2 >FC 

1000 

21010 OPT»=UPPEfi*(OPT»):BETUBN >AE 

21020 IF OPT*="A* OB OPT*=*B* OB OP >QB 

Ti="C" OB OPT*=*B" GOTO 1230 ELSE 1 

210 

21200 FOB HU=1 TO 10:PRINTI2,TAB (1 >KU 

0);TA;CHBt(120)iHU;TAB(22)":*;:PBIN 

TI3.TAIHU 

21210 IF NU=10 THEN BETUBN ELSE FOB >CD 

t=0 TO t:NET t:NETT HU 
21300 TOU*=IHKET*:IF TOUI=" THEN 2 >FÏ 
1300 

21310 TOU*.=UPPER*(TOU«>:BETUBH >AU 
21320 IF TOU*="H* THEN PBIHT CHRM7 >LC 
):CLSI2:CLSI3:CLSI4:aSI5:G0T0 1000 

ELSE BETURN 

21400 LOCATE i t y:PBINT CHH(233) >AT 
21410 ch$=":LDCATE i,y:PBIHT "} >AH 
21420 c*=INKEÏ$ >CH 

21425 IF cht="0* THEN HBC=1:GOTO 21 >DG 
470 

21430 IF c*=CHRI(13) THEN PRINT CHR >BD 
•C7J:G0TD 21470 

21440 IF c$<>" THEN PBINT c»;:ch*= >GA 
chl+c* 
21450 IF LEN(ch*)=NBC THEN PRINT CH >UB 
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EDUCATIF 



ORTHOCHIFFRE 




Le but de cet éducatif est 
d'apprendre aux enfants 
(bien que les essais aient 
profité aux plus grands) 
l'orthographe bien 
particulière des nombres en 
langue française. ^ ob W 



«cf c 



6ÎMÎ 



I 



1 s'utilise de deux façons différen- 
tes, soit en mode "apprendre", soit 
en mode "jouer". Les deux pouvant 
substituer à tout moment. I 



TABLE 
DE MULTIPLICATION 

(SU I T E 

▼- 



R*(7):GOT0 21470 

21460 GOTO 21420 > 

21470 LOCATE l,y:PRIHT ch* > 
21480 OH EBfiQR GOTO 22200 > 
21490 RETURH ) 

21500 CLS I1:L0CATE 8,10:PR1NT CHRI > 
<24};SPACE*<i)jCHB*(24):LDCATE 8,11 
:PRINT" Voici la table de';TA;:L0CA 
TE 8,12:PRINT CKR«(24);SPACE*(ï);CH 
fl*<24» 

21510 LOCATE 73,2:PRINT TA:BETURH > 
21600 CLSI2:CLSI3;CLSI4:F0R W=l T0 > 

10:PBIHTI2,TAB (10> ;TA;CHS*(120) ;H 
U;TAB(22) , = , :HEIT:fiETURH 
21700 LOCATE i-l,y:PBIHT RES:HU=HU* > 
l:y=Y+i:GDT0 15100 
21800 IF HU«TA>=0 AND HU»TA<10 THEH > 

HBC=1:L0CATE i,y 

21810 IF Hl»TA>9 THEH HBC=2:L0CATE > 
i»l,y:PBIHT CHRI(128);CHSI(128) 



f 21820 IF HUfTA>99 THEH NBC=3:L0CATE > 
**2,y:PS!HT CHBtU28);CHR*( 126) :RE 
TUBH ELSE RETURH 

21900 LOCATE 75,2;PRIHT ESS:RETURH > 
22000 IF FA=0 THEH CLSI5:L0CATE 2,2 > 
1:PB1HT CHR*(24);SPACE»(33);CHR*<24 
):L0CATE 2,22:PRIHT CHRK24);' BRAV 
TU H' AS PAS FAIT DE FAUTE , ;CHB*< 
2*): LOCATE 2,23:PRIHT CHR*(24);SPAC 
EI(33);CHRt{24):EHT 1,100,-S,2:SOUH 
D l,70,2S,4,0,l;fiETUBK 
22100 CLSI5: IF FA>9 THEH i=24 ELSE > 
i=23 

22110 CLSI7:L0CATE 8,21:PRIHT CHBïf > 
24);SPAC£l(i);CHEK24):L0CATE 8,22: 
PBIHT CHR*(24);" TU AS FAIT'jFAî'FA 
UTEIS) ";CKR*(24):L0CATE8,23:PRINT 
CHRt(24)iSPACEI(i);CHRt(24):S0UHD 
1,3822, 100, 7: RETURH 
22200 IF ERL=1390 AND EBfi=13 THEH T > 
A=-1:BESUHEHEIT 

22210 IF ERL=10070 AND EBfi=13 THEH > 
ch-0:BESUHE HECT 

22220 IF ERL=1S080 AND EBR-13 THEH > 
RES=0:SESUHE HEIT 

; 1 22230 IF ERL=20200 AND EBR=13 THEH > 



TA=-1:RESUHE HEIT 

22240 IF ERL=20230 AHD EBB=13 THEN >UD 
HU=-1:RESUHE HEIT 

22250 IF EBL=20280 AHD ERS=13 THEN )IL 
BE3=-1:RESUHE HEIT 

22300 LOCATE v,w:a=204:SÎHB0L AFTER >XD 
a:STHB0L a, 1,2,4,8, 16,32,64, 128:Pfi 
IHT CHRilahRETURN 

22310 LOCATE «,w-l:b-208:S?HB0L AFT >VL 
ER b:5THB0L b,0,û,0,0,0,0,0,255:PEI 
NT CHRI(b)ifi£TU8N 

22320 IF w=17 THEH w=17:L0CATE v,v- >WT 
1.-PEIHT CHR*(b):RETUBH:ELSE LOCATE 
v,*:c=206:SYHB0L AFTER c:SYKB0L c,l 
28,64,32,16,8,4,2, 129:PBIHT CHR*(c) 
:w=ii*1: RETURH 

22400 d=132 >HH 

22410 STHB0L AFTFJt d >PG 

22420 STHB01. d, 0,0,0,0,0, 0,0,128 >TU 

22430 i=4:y=16 >UC 

22431 LOCATE ï,y >LH 

22440 FOR p=33 TO 323 STEP lûiPRIHT >RW 
CHBt<d);:NFJT 

22441 y=y-l:IF y=6 THEH 22450 ELSE >ÉW 
22431 

22450 BETURH )KE« 



▲ 




10 ' orthochiffre >LA 1 

20 ' — - par CANTILLAC D, >LB 

30 ' 05/B8 >LC 

50 1NK 0,1:!NK 1,24:INK 2,Ï0:INK 3, >EP 
24,10 

100 HODE 1 >GK 

120 TAG:ip=16Q >ÏG 

130 titt="QRTHQCHlFFRE" >UC 

140 FOR n=l TO 12:G0SUB 60000:t*=Hl >QY 
D»(titt,n,l)f ":GOSUB 55OO0:NEXT 
150 tl=" "t-STRING$(14,V> >UU 

160 FOR ï=-19B TO 170 STEP 8:H0VE i >YJ 
,286:PRINT t*;:NEXT 

170 tll=*par CANTILLAC D.":n=0 >AK 

1B0 FOR i^ITG TO 432 STEP I6:G0SUB >FH 
622OO:G0SUB 62100:H0VE i,20û:n=n*i: 
PRIHT HlDf(tf4,n t l);:NEXT 
190 a=19:b=21:c-ll:d=13 >SP 

200 FOR n=l TO 10:UIHDOUIl,a,b,c,d: >UE 
PAPERtl,l:CLSIl 

210 a=a-2:b=b*2:c^l;d=d*i >VZ 

220 NEXT >DK 

300 TAGOFF >UH 

320 HODE l:PAPFJtl,0 >NG 

4900 LDCATE 8,2:PRINT"0 R T H C H >PL 
1 F F B E" 
4910 LOCATE 7,1:PRINT CHRt(150);STR >CG 
ING*(25,154);CHRI(156) 
4920 LOCATE 7,2:PRINT CHU* < U9 > : LUC >EK 
ATE 33,2:PRINT CHRt(149> 
4930 LOCATE 7,3:PRINT CHR*U47);STR >CP 
IHGI(25,154);CHBt(153) 
SOOO FOU qaz=4 TO 25;L0CATE l,qaz:P >CB 
R1HT CHRt(18):NEIT:UIHD0UI3,2,39,24 
,25:yiHD0BI2,2, 39,4,4 
5005 nbpb=0:ioy-0:nbpbj=0 >W 

5010 LDCATE 5,6:P8INT"VfJULEZ-V0US : >LZ 
■îCLSIS^RIHTIS.'choii par < ESPACE 
> puis < RETURN >* 
5050 ■•=■ APPRENDRE ":bt=" JOUER ■: >NT 
c*=" FIN * 

5080 i=3:y=l:z=l:s=0 >PG 

5100 LOCATE 10,12:PEN *:PRINT a* >ZX 
5110 LOCATE 10,14:PE* y:PRINT bt >ZC 
5120 LOCATE 10,16:PEN ziPRICT cl >ZH 
5200 IF INKEY(47K>-1 THEH 5300 ELS >RY 
E IF I«KET(I8K>-1 THEH 5500 ELSE 5 



Le mode "apprendre" permet d'imposer 
à l'ordinateur un nombre de son choix 
de dix chiffres au maximum. Plus de dix 
chiffres ne présentant plus d'intérêt pé- 
dagogique. Aussitôt le nombre affiché, 
la réponse apparaît. 

Le mode "jouer" propose le tirage d'un 
nombre (10 chiffres maximum) d'une fa- 
çon complètement aléatoire et à la ma- 
nière du jeu télévisé "Des chiffres et des 
lettres". Le programme accepte n'importe 
quel formai de réponse (majuscules ou 
minuscules, espace ou non, et ne tient pas 
compte de symboles comme tiret, virgule 
ou point). La réponse n'est considérée 
comme fausse que dans le cas d'une er- 
reur d'orthographe. 

En cas d'erreur, le programme propose 
de refaire un essai ou de donner la solu- 
tion. Une notation simple s'effectue au 
fil de l'exercice mais repart à zéro si on 
change de mode. 

L'auteur reste à l'entière disposition des 
éventuels usagers el à l'écoute de toutes 
les suggestions. 



200 

5300 s=s+l:IF s=3 THEH s^O >UB 

5350 IF s=0 THEN i=3:y=l;z=l >VZ 

5360 IF s=l THEH i=l:y=3:z=t >WB 

5370 IF s=2 THEH i=l:y=l:z=3 >lffi 

5400 FOR ghj=0 TO 4OO:NEIT:G0T0 510 >DC 


5500 IF i=3 OR y=3 THEN FOR qaz=6 T >KY 
23:L0CATE l,qaz:PRlNT CKRtUSkNE 
XT:GOT0 10000 

5600 HODE 0:PRINT:PRINT:PR1NT:PRINT >EU 
:PR1NT ■ A LA PR0CHAIHE':FOR asdf 
=0 TO 3000; NEXT :CALL 
10000 CALL MB03:CL5I3:PEN 1:F0R ty >IU 
=1 T0 10:ch*(ty>=":ch(ty)=0:rep»(t 
y)=":HEIT ty:L0CATEI3,4,2:lHPUTI3, 
■AVEC COMBIEN DE CHIFFRES ? :",gros 
* 

10020 IF gros»='0" THEN LOCATE 10,1 >GB 
0:PEN 3:PRIHT "PAS TROP DIFFICILE ? 
?7':GDSUB G10OO:G0T0 10900 
10030 IF LEFT»(grost,l)="-" THEN L0 >gG 
CATE 10,10:PEN 3:PRINT "J'AI DIT CD 
' HBIEN !!!':G0SUB 61000:GOTO 10900 



10040 IF VALfgros*)=0 THEN LOCATE 1 >GD 
0,10:PEN 3:PRIHT "J'AI DIT COMBIEN 
H'VGQSUB 61000:GOTO 10900 
10060 IF YAL(grQS*)>10 THEN LOCATE >KE 
13,10:PEN 3:PR1NT "C'EST TROP !!!': 
GOSUB 61000 ELSE gros=VAL(gros*):GO 
TO 11000 

10900 FOR qwe=l TO 2000: NEXT i LOCATE >TH 
10,10:PRINT SPACE$(30):L0CATEI3,33 
,2:PRINTI3,SPACE*(4):GOT0 10000 
11000 a=(FIH(40-((2*grosM))/2))- >CB 
1 

11050 «INB0«ll,a,a»(2*gros)t2,6,8 >AG 
11100 PÀPERIi.kPENIt.Q^LSIkPRlNT >QC 
H,CHR*U50>;STilNG*<<2tgrosl*l,154 
) ;CHS*(15G) ; :PRINTril r CHR*(149) ;SPC( 
(2igras>+l);CHR*<149>;:PRINTIl,CHR* 
(1471 ;5TRiNGf(<2i{ros)4i, 154) ;CHR$( 
1531; 
11140 ' sélection option -- >DC 



11150 il=0:lF i=3 THEH 13500 >UA 

11200 FOR b=i TO gros:CLSI3:PRINTI3 >ÏU 

," APPUIE SUR LA BARRE <ESPACE> PEN 

DANT ";:PRINTI3,"LE TEMPS QUE TO VE 

UX PUIS RELACHE -LA"; 

11220 RANDOHIZE(TIHE) )RP 

11222 n=CINT(RNDi9) >HN 

11240 IF INKEï(47)=0 THEN 12000 ELS >GN 

E 11240 

12000 HHILE INKET(47>=0:c=20:G0SUB >UF 

13000:UEND:CLSI3 

12100 c=c+ 140: GOSUB 130O0:IF c>600 >TF 

THEN GOSUB 621OO:GOT0 13110 ELSE 12 

100 

13000 n=n*l:IF n=10 THEN n=0 >¥X 

13010 n=!2igros)xl:L0CATEtt,ii,2: >EH 

PRlNTIl,n;:GOSUB 62000 

13080 FOR bm=0 TO e:NEXT br« >«H 

13100 RETURN >LH 

13110 chfb)=n >GG 

13120 il=U*2 >HA 

13130 NEXT b:G0T0 14950 >RE 

13497 ' >EK 

13498 '-choir des chiffres (apprend >FA 



re) - 

13499 ' 



>FB 



13500 FOR b«l TO gros >PV 

13505 CLSI3:Hsit=":L0CATEI3,*,l:PR >UH 

INTI3, 'CHOISIS LE CHIFFRE Ho ';h 

13510 wsiJMNKEY*;IF wsï*=" THEN 1 >FA 

3510 

13520 IF ASC(wsi*)<48 OR ASC!«sx*)> >QZ 

57 THEN 13505 EISE ch<b)=VAL(»sït) 

13530 n=<2igros)-il:L0CATEIl,i«,2: >UC 

PRIH7ll,ch(b) 

13540 «1^1+2 >HG 

13550 NEXT b >BA 

14950 repn*(l>=»ii]liards Vrepiti2 >ZR 

J="ii!lions •:repx*(3)="Bilie " 

14997 ■ >FF 

14996 ' 10e chiffre --- >FG 




14999 ' >FH 

15000 IF ch<10)=0 THEN rep*U01=": >KE 
GOTO 15200 

15010 RESTORE SOOOOiFOR d=0 TO 9:RE >UU 
AD ecrittldhHEIT 

15015 IF eh(M»«J THEN reptliOl^un >ÏZ 
■ illiard ":repi*U)=":GOTO 15200 
15020 rep*(10)=ecrit$<chUQ>) >IM 
15197 ' >EJ 

15196 ' 9e chiffre >EK 



15199 ' >FA 

15200 IF Cb(9)=0 THEN rep*(9)=":G0 >HI 
TO 15400 

15210 RESTORE 5OO05:F0R e=0 TO 9:RE >WF 
AD ecrUKehNFJET 

15215 IF ch(9)=l THEN rep*(9)="cent >8L 
":G0TO 15400 

15220 repiO^ecrittlchOD^cent • >EL 
;IF ch(8>=0 AND ch(7)=0 THEN rep*(9 
hecrittlchOJH'cents ■ 

15397 ' >FA 

15398 ' 8e chiffre - >FB 



15399 ■ >FC 

15400 IF ch(B)=0 OU ch(B)=l THEN re >VC 
p*I8)='*:G0T0 16000 

15420 RESTORE 50030:FOR f=0 TO 9:RE >UJ 

AD ecrit»lf);HEIT 

15440 repl(BÏ=ecHtllch<8)):IF ch(8 >LR 
>=8 AND ch(7)=0 THEN rep*(8>='quâtr 
e vingts ■ 

15997 ' >FG 

15998 * — 7e chiffre >FH 



15999 • >FJ 

16000 IF ch(7)=0 AND ch(8)OI AND c >DV 
h(8)<>7 AND ch(8)OQ THEN rept<7)=- 
•:G0T0 16200 

16020 IF ch(8)=l OR ch(Bl=9 THEN IE >NN 
STORE 50010:F0R (=0 TO 9:READ écrit 



*(ghNEIT:rep«(7)=ecTit*(ch(7)) 

16040 IF ch(B>=7 THEN RESTORE 50015 >IH 

-FOR h=0 TO 9:READ ecritt(h):NEXT:r 

ep*(7)=ecritt<cr,(7)t 

16060 IF ch(8)=2 OR ch<8)=3 OR ch(B >UN 

1=4 OR chlB)=5 OR ch(B)=6 THEN RE5T 

ORE 50020:FOR i=0 TO 9:READ ecritK 

i):NEXT:rep*(7)=ecrit*(ch(7)) 

16070 IF ch<8>=8 THEN RESTORE 50000 >IH 

:FOR i=0 TO 9:READ ecritt(i):NEXT:r 

ep*<7)=ecrltt(chl7)) 

16080 IF cMBUO THEN RESTORE 50000 >XC 

:FQR j=0 TO 9:READ ecritt(j) :NEXT:r 

ep*(?)=ecrit*(ch<7)) 

16120 IF ch(9)=0 AND chlflH) AND ch >FR 

(7)=1 THEN repx*l2)=*un Billion ":r 

ep*(7ï='" 

16197 ' >EK 

16198 ' 6e chiffre >FA 

16199 ' >FB 

16200 IF ch(6)=0 THEN repï(6)="":G0 >KT 
TO 16400 

16210 RESTORE 50OO5:F0R k=0 TO 9:RE >tfV 
AD ecrit»(k):NEn 

16215 IF chI6)=l THEN rep*(6)="cent >QG 
":GOTO 16400 
16220 repJie^ecrittlchieilt'cent ■ >DE 

16397 ' m 

16398 '— 5e chiffre - >FC 

16399 ' >FD 

16400 IF ch(5)=0 OR ch(S)M THEN re >UD 
p*(5)-":G0T0 17000 

16420 RESTORE 5003O:F0B 1=0 TO 9:RE >UT 

AD écrit»! I > :HEÏT 

16440 rept(5)=ËcritlIch(5)):]F cM5 >LB 

1=8 AND cti(4)=0 THEN rep*(5)="quatr 

e vingts " 

16907 ' >FH 

16998 ' — 4e chiffre >FJ 



16999 ' >FK 

17000 IF ch(4)=0 AND ch(5X>l AND c >DG 
h(5K>7 AND ch<5)<>9 THEN replU^" 
■:GOTO 17200 

17020 IF ch(5)=l OR ch(5)=9 THEH RE >HP 
STORE 5OO10:F0R iO TO 9:READ écrit 
*(■) :NEXT:rept(4)=ecritt(ch(4) ) 
1704O IF ch(5)=7 THEN RESTORE 50015 >XP 
:FOR o=0 TO 9:READ ecrit»(o):NEIT:r 
ept(4)=ecrit*(ch(4>) 



17060 IF ch<5)=2 OR ch<5>=3 QR ch(5 >UG 

1=4 OR ch<5)=5 OS cMS)=6 THEN REST 

ORE 50020:FOR p=0 TO 9:READ écrit»! 

p):N£IT:rep*(4)=ecrit»(ch(4)) 

17070 !F ch<5)=8 THEN RESTORE 50000 HB? 

:FOR p=0 TO 9:R£AD ecrit»<p):NEXT:r 

epl(4)=ecritt<ch<4)) 

17080 IF ch(5)=0 THEN RESTORE 50000 >IJ 

:FOR q=0 TO 9:READ ecrit*(q):NEIT:r 

ep*l4)=ecritt(ch(4)) 

17090 IF ch(6)=0 AND ch(5)=Q AND ch >VD 

(4) = 1 THEN rept(4)=" 

17197 ' >FA 

17198 ' - 3e chiffre >FB 

17199 ' >FC 

17200 IF ch(3)=0 THEN rep*(31=":GQ >HN 
TQ 17400 

17210 RESTORE 50005:FOR r=0 TO 9:RE >tH 
AD ecrit*(r):NEXT 

17215 IF ch(3)=l THEN rept(3)="cent >QC 
":GOT0 17400 

17220 rep*(3)=ecrit*(ch(3Ut , cent ■ >E2 
-.IF ch(2)=0 AND ch(l)=0 THEN repl(3 
)=ecritt(ch(3))t'cents • 
17397 ' >FC 

1739B ' 2e chiffre >FD 

17399 ' >FE 

17400 IF ch(21=0 OR ch(21=i THEN re >UW 
p*I2)=":G0T0 18000 

17420 RESTORE 50030:FOR s=0 TO 9:RE >UP 
AD ecrit*<s):NEIT 

17440 rep*(2)=ecrit*lch(2)):IF ch(2 >KV 
)=B AND ch(l)=n THEN rep*(2)='quatr 
e vingts * 

17997 ' >FJ 

17998 ' le chiffre >FK 

17999 ' >GA 

18000 IF ch<l)=0 AND ch(2)Ol AND c >CA 
h(21<>7 AND ch(2K>9 THEN rep*(l)=' 
*:GOTO 19000 

18020 IF chf2)=l OR chl2)=9 THEH RE >HT 

STORE SOOiOiFOR t=0 TO 9;READ écrit 

*(t) :NEIT:rep*(ll=ecritilch(l) ) 

18040 IF ch(2)^7 THEN RESTORE 50015 >IU 

:F0R v=0 TO 9:READ eerit*(v>:NEXT:r 

ep*ll)=ecrit*(ch<l)> 

18060 IF ch(2)=2 OR ch(2)=3 OR ch(2 >UA 

1=4 OR ch(2)=5 OR ch(2>-6 THEH REST 

OSE 50020:FOR «=0 TO 9:READ ecrit.il 

w):NEXT:repltl)=ecritt(ch(D) 

18070 IF chC2)=8 THEN RESTORE 50000 >H 

:FOK h=0 TO 9:READ ecritt(u):KEIT:r 

ept(l)=ecritt(ch1D) 

18080 IF ch(2)=0 THEN RESTORE 50000 )AD 



▲ 



:FOB ab=0 TO 9:IEAD ecri tï(ab):KEIT ' 

:rept(l)=ecrltl(ch(l)) 

19000 IF chtlOhO THEH repi*<l)=" >ZG 

19005 IF eh(9)=0 AND ch(B)=0 AHD eh >IÏ 

(7)=0 THEH repit(2>=" 

19010 IF ch<6)=0 AHD ch(5)=0 AND ch >IK 

(4>=0 THEH tepi$(3)=" 

19060 reponsel=" "»rep»(10Hrepi«( >QI 

lï+repti9)*rep*(B)+repl(7Hrepit(2) 

*rep*(6)+rep*<5Hrep*(4Hrepi*(3>n 

ep*(3Hrep*(2)+rep*<l) 

19090 IF reponse*=" " THEH réponse >UQ 

t-' zéro ■ 

19100 Ion=LEH(reponset) >TD 

19120 h=(]on\34M:WIHD0VI7,4,37,10 >HP 

,htlO:PAPEfil7,l:PENI7,0:CLSI7 

19080 ' -sélection >FC 

19990 IF i=l THEH 25000 :' a >QD 

élection 

19997 ' >GA 

19998 ' apprendre >6B 

19699 ' >GC 

20000 FOt n=l TO Ion >HI 

20065 PBlHTt7,HlDi(reponset l n ( l); >CB 
20070 IF POS(t7)>30 AHD (MB* (repu >PL 
set,n,l)=" * 08 HIDI<reponset,n,l>= 
"-") THEH decal=l 

20060 IF deçà 1=1 AHD IH1D*( réponse* >ÏJ 
,»*!>* ' OR H]Dt(reponse*,n, !)=■-■ 
) THEH PR[NTi7:PRlNT*7," ■; idéal =0 
20098 GOSUB 622O0:F0R qn=l TO 100:H >TL 
EIT: GOSUB 62000 

20100 HFJT n >BB 

20120 CLSI3:PRIHT#3," ENCORE UNE >UN 
FOIS ? --><ESPACE> , :PHIHTI3 t " 
JOUER ? -XRETURH)"; 
20160 IF 1HKET<47)<>-1 THEH CLSI3:F >BF 
OS qaz=5 TO 23:L0CATE l,qaz:PRINT C 
HRt(16):NEIT:GGTt) 10000 
20180 IF IHKEY(1BX>-1 THEH 5000 >TH 
20190 GOTO 20160 >BD 

24997 ' >FG 

24998 ' réponse au jeu >FH 

24999 ' >FJ 

25000 r*=":rit=" >LG 
25010 FOR n=l TO Ion >HD 
25020 nMMM(re|lbnsel,n,l):]F rit >FQ 
=• ■ DR n»="-" THEH n»=" 

25040 r$=rt+rrt >ZB 

25060 MOT >TB 

25500 nbpb=nbpb*l:L0CATEi2,l,l:PRiH >XD 
712, "Ho: ";nbpb 
26000 t»=":ti*=":tl*=" >iC 

26020 CLSI3:PRINTI3," ECRIS LE >AJC 

HOHBBE EH LETTRES 1 
26040 CALLMB03 




26100 L0CATEI7,2,1:LIHE IHPUTI7,", >2G 
tl*:lontl=LEN<tlt) 

26120 FOR n^l TO lontl >QK 

26140 txMUDi<tlt,n,D:IF ASCttHl >UT 
<65 OS <ASC<ti»»90 AHD ASC(ti»K97 
) OS ASC(tit)>122 THEH tï*="» EL5E 
tit=LOUEB*(tit) 

26160 tt=t*+ti» >AB 

26180 HEÏT >TF 

26300 IF r*=t* THEH GOSUB 40000 EL5 >HT 
E GOSUB 42000 

27520 CLSI3:PRIKTI3," ENCORE UHE >WC 
FDIS ? -XESPACE>":PBINTI3," 
APPRENDRE ? -XRETUWD"; 
27540 IF IHKET(47Ï<>1 THEH aSI3:F >BQ 
OR qaz=S TO 23:L0CATE l,qaz:PBIHT C 
HH*(1B):NEÏT:G0T0 10000 
27560 IF IHKEYU8K>-1 THEH 5000 >TF 
27570 GOTO 27540 >DB 

39997 ' >GC 



39998 * s/p JUSTE-- - >GD 

39999 ' >GE 

40000 LOCATE 15,15:PRIHT CHR4U3S); >KD 
STRING*(9,13i);CHRt(139ï:L0CATE 15, 
16:PRIHT CHRI(133):L0CATE 25,16:PR1 

HT CHRI(13B1:U1CATE 15,17:PHIHT CHS 

*(H1);STRING»(9,140);CHR»<142) 

40010 PEH 3:L0CATE 16, 16:PRIHT"J U >PG 

S T E*:PEH 1 

40020 GOSUB 60000 >LH 

40040 nbpbj=nbpbj*l >PP 

40050 GOSUB 44000 >LT 

41990 RETURH >HF 

41997 • >FF 

41998 '- —s/p FAUI >FG 

41999 ' >FH 

42000 LOCATE 16,15:PBIHT CHR»(135); >KD 
STRIHG*(7 1 131);CHR»(139):L0CATE 16, 
16:PRINT CHRI(133):L0CATE 24,16:PBI 

HT CHBt(13S):L0CATE 16,17:P8IHT CHS 
t(141);STRING*(7,140);CHRI{142) 
42010 PEH 3:L0CATE 17,16:PHIHT"F A >H2 
U I*:PEH 1 

42020 GOSUB 61000 >LQ 

42030 GOSUB 44000 >LT 

42100 CLSi3;PRlHTI3,' VEUX-TU L >AA 
A SOLUTION -XS^PRINTH," 
U REFAIRE UN ESSAI -XRETURH)"; 
42110 CALL fcBB06:F0R qaz=15 TO 18-.L >NP 
OCATE l,qaz:PHIHT CHW(lfi):IHT 
v 42120 IF IHKET(1B)0-1 THEH CL5I7:G >LF 



OTO 25500 

42200 HlNDQM6,4,37,17,hti7:PAPERt6 >UI 

,1:PENI6,2:CLSI6 

42210 FOR n=l TO Ion >HE 

42220 PRlHTI6,niD4(repon5et,n,l); )CI 

42230 IF POS(I6»30 AND IMD*(repon >PH 

set,n,l)= a * OR MD*(reponset,n,l)= 

) THEH decat=l 
42240 IF decahl AND (MMfreponse* >IJ 
,n,l)=" " OR HIDt(reponse*,n, !)=■-• 
) THEN PSINTI6:PRIHTiG," ";:decal=0 
42250 GOSUB 622O0:F0R qw=l TO 100:H >TT 
EH: GOSUB 62000 

42260 HEÏT >TC 

43990 RETURH >HH 

43997 ' >FH 

43996 ' S/P HOYEHNE ET HOTE--- >FJ 

43999 ' )FK 

44000 ioyenne=(nbpbJi20)/nbpb:aoY=R >ZJ 
QUNDdoyenne.li 

44020 L0CATEI2,24,l:PRIHTI2,CHRt(lB >CT 
ï ; "HOTE = ";Boy;"/20"; 
44990 RETUHN >HJ 

50000 DATA ■ '."un ",'deui ", "trois >EQ 
■, 'quatre '/cinq ","sii '.'sept ■ 
, "huit ","neuf ■ 

500O5 DATA ■ %• ","deui ", "trois " >AÏ 
, "quatre ","cinq ","six ","sept "," 
huit ","neuf ■ 

50010 DATA "dii "."onze ", "douze ", >JJ 
"treize •, "quatorze ","qulnze ","se 
ize ","dii-sept ","dii-huit ","dii- 
neuf " 

50015 DATA "di> ","et onze ", "douze >QB 
"."treize ", "quatorze ", "quinze ", 
"seize ","dli-sept ","dii-huit ","6 
li-neuf ■ 

50020 DATA ■ \"et un ","deui ","tr >KG 
ois ", "quatre ","cinq ","sii ","sep 
t ","hult ","neuf " 

50030 DATA " "," ", "vingt *, "trente >BH 
", "quarante ", "cinquante ",'soiian 
te ","sotiante ","quatre vingt ","q 
uatre vingt * 

55000 ip=ip»20:F0R i=640 TQ ip STEP >HH 
-4:II0VE i,300:PEIHT t»;:HEIT:RETURH 
60000 EHV 1,5,2,50:EHT -1,3,-10,10 >QU 
,2,10,10:SOUHD 1, 142,0,5, 1,1:RETURH 
61000 EHV 2,4, -2, SOiENT -2,6,2,1,4, >HJ 
-2,1:S0UND 1,300,0, 15, 2, 2: RETURH 
62000 SOUND 1,500,1, 15,,, 30:RETUSN >BZ 
62100 EHV 1, 4,0,5,7, -2,2:EHT -1,12, >ZL 
1,1,15,-1, 1:S0U» 1,110,0,15,1,1,1: 
RETURH 
„ 62200 SOUND 1,200, 10: RETURH MIT» 







AMS'ORGUE 



Le programme ^~ 
AMS'ORGUE transforme 
le clavier de votre 6128 ou 
de votre 464 en clavier 
musical qui joue sur deux 
octaves dont les numéros 
sont affichés dans une 
fenêtre d'écran. 



Ces numéros d'octaves ei les va- 
leurs des périodes sonores figu- 
rent sur les manuels AMSTRAD. 
Vous pouvez utiliser en tout 8 octaves 
numérotées de -4 à +3 et toutes les pé- 
riodes sonores permises entre 3822 (DO 
très grave) et 16 (SI très aigu). 
Pour jouer, pas besoin de définir des ENV 
ou des ENT, il suffit d'utiliser les deux 
rangées de louches supérieures du cla- 
vier. Vous obtiendrez les notes de deux 
octaves. 

La louche TAB donne un DO et la tou- 
che RETURN ou ENTER un SI. 
Un clavier musical en BASIC... qui ne 
traîne pas, qui ne crachote pas... ÇA 
EXISTE ! 

Tant qu'on (WHILE) appuie sur la lou- 
che (INKEY(N° de touche)=0), cela joue 
un SOUND sur un canal, avec une fré- 
quence et un volume (à fond...)- 
Cela donne un son d'orgue très accepta- 
ble qui peut même passer par l'ampli de 
voire chaîne Hi-Fi. 



tiïsmm*** 



'■■■ 






La juxtaposition de WHILE:END (une 
par note) permet de se passer de varia- 
ble et d'obtenir ainsi un BASIC ultra 
rapide. 

Le même procédé esl utilisé pour chan- 
ger d'octaves (avec les flèches gauche 
et droite). 



10 REH AHS'ORGUE >PF 

20 REH par Jean Pierre -GRAPiN >TV 

30 REH AVRIL 1968 )Lri 

100 "REH Dessin du clavier et des fe >KZ 

ne très. 

11Û MODE 2:THK i,23:IHK 0,0:BQRDEB >ûK 

11 

120 LOCATE 16,11:PBIHT CHR*(242>+CH >PL 

R*(154);'t POUR CHANGER D'OCTAVE UT 

1L1SER LES FLECHES ]";CHR*(154)+CHR 

«(243) 

130 LOCATE 15,14:PRINT "12 >VA 

4 5 6 8 9 

I CLR" 
140 LOCATE 13,23:PRllfT "TAB Q V >DB 



Attention, cette remarque s'adresse aux possesseurs de 464 : 

La touche ESC arrête le clavier musical car il n'est pas possible d'utiliser 

ON BREAK CONT. 

De plus, il faut taper les lignes suivantes pour un 464. 



125 LOCATE 18,24:PRHn , "ESC ne donne aucun son et a 
140 LOCATE 13,23:PRIHT 'TAB Q V E R T 
510 GOTO 560 



ete le prograus* 
U I P § l ENTER* 



Le programme vous place au départ sur 
les deux octaves (0,+ l). 
8 ko deBASIC... utilisez COPY ou EDIT 
loules les lignes se ressemblent. 
AMS'ORGUE n'est qu'un clavier, loul 
simple, pour ceux qui veulent se conten- 
ter de jouer un peu de musique avec leur 
Amstrad. 



Y 



I 



B I RET" 

150 LOCATE 20,2:PRINT n " > ï ArtS >HK 

'ORGUE par J-P GSAPIN » » I* 

160 UIHDOW 10,19,62,5,9 >QU 

170 PLOT 1,1:DRAU 639,1,1:DRAU 639, >CH 

399:DRAU 1,399:DR*U l,l:ri0VE 2,2:DS 

AU 636,2:DRAU 636,397:DRAU 3,397:DR 

AU 3,2 

160 0RIGIN 96,60 >GH 

190 FOR 1=0 T0 110 STEP 2 >QJ 

200 DRAW 448,0,1:H0VER -448,2:HEIT >CC 

210 FOR J=0 TO 224 STEP 224:F0R 1=3 >HB 
2 T0 64 STEP 32 

220 H0VE M2+j,48 >HD 

230 FOR h=48 TO 110 STEP 2 >RH 

240 DRAUR 26,0,O:H0VER -26,2 >VT 

250HEIT h,i,j >UK 

260 FOR J=0 TO 224 STEP 224:F0R 1=1 >«H 
28 T0 192 STEP 32 

270 KOVE i-12+j,48 >HJ 

290 FOR h=4B T0 110 STEP 2 >BI 

290 DRAUR 26,0,0:HOVES -26,2 >VT 

300 HEIT h,i,J >UF 




310 MWE 0,0:FOR 1-1 TD 15 ) 

320 DRAUR 0,110:HDVEE 0,-110:DRAUR ) 
32 ) 0:HEIT 

330 HOVE 0,0:DRAUR U7 k 0,I:MUUR 0, ) 
llûiDRAUR -44fl,0:DRAUR 0,-111 
340 HOVE 46,1B6:DRAUR 354,0,1:DRAUR 3 
0,90:DRAWR -354,0:DRAUR 0,-90 
500 HEU changements d'octave ; 

510 ON BREAK C0NT:G0T0 560 ] 

520 CLS:PRINT:PR!NT:PH1NT ■ Octave : 
Gauche : -4 / Octave droite : -3" 
:GOTO 1000 

530 CLS:PR1»T:PRINT:PRINT * QctBve ! 
Gauche : -3 / Octave droite : -2" 
:GOTO 2000 

540 CLS:PHtNT:PRiHT:PRlNT ■ Octave : 
Gauche : -2 / Octave droite : -i" 
:GOTQ 3000 

550 CLS:PRINT:PRINT:PR1NT ■ Octave : 
Gauche : -1 / Octave droite ; 0* 
:GOTO 4000 

560 CLS:P8INT:PR]NT:PH1NT " Octave 
Gauche : / Octave droite : +1" 
:G0TO 5000 

570 CLS:PRINT:PRINT:PR1NT • Octave 
Gauche : ♦! / Octave droite : +2" 



580 aS:PRIHT:PRINT:PRINT « Octave >UK 

Gauche : +2 / Octave droite : +3» 

:GOTO 7000 

590 REH programmation des touches >DR 

1000 CALL 1BB06:UHILE INKEï(68>=0:S >BQ 

OUND 1, 3822,1, 15:UEND 

1010 WH1LE iNKETt 64 1=0; SOUND 1,3608 >MB 

,1,15:VENÛ 

1020 UHILE 1 NKET ( 67 )=0: SOUND 1,3405 >NA 

,1,15:UEND 

1030 UHILE INKEY (65 1=0: SOUND 1,3214 )NI 

,1,15:UEND 

1040 UHILE 1 HKEÏ ( 59 )=0; SOUND 1,3034 >NR 

,1,15:UEND 

1050 UHILE INJCETI57)=0:UENÛ >UL 

10G0 UHILE INKEÏ (58 1=0: SOUND 1,2863 >PD 

,1,15:UEND 

1070 UHILE I NKET ! 56 (=0: SOUND 1,2703 >ND 

,i,15:UEND 

1080 UHILE INKEY(50r=0:S0UND 1,2551 >HZ 

,1,15:UEND 

1090 UHILE INKEYI49)=0;S0UND 1,2408 >PB 

,1,15:UEH) 



1100 UHILE 
,1,15:UEND 
1110 UHILE 
,1,15:UEND 
1120 UHILE 
,1,15:UEND 
1130 UHILE 
1140 UHILE 
,1,15: VEND 
1150 UHILE 
,1,15:UEND 
1160 UHILE 
,1,15:UEND 
1170 UHILE 
,1,15:UEND 
1180 UHILE 
,1,15:VEND 
1190 UHILE 
1200 UHILE 
,1,15:UEND 
1210 UHILE 
,1,15:UEND 
1220 UHILE 
,1,15:UEND 
1230 UHILE 
,1,15:UEND 



!NKET(51>= 

INKEY(4B>= 

IWEY(43)= 

INKET(41): 
INKEï(42): 

INKEÏUO): 

1NKET135): 

INKEÏ03): 

INKEY(34)= 

1NKEYI32)= 

1 NKET 127): 

INKEY (25) ^ 

INKEÏ (26 h 
INKEY (24); 



0: SOUND 

0: SOUND 

0: SOUND 

0:UEND 
0: SOUND 

0: SOUND 

0: SOUND 

0: SOUND 

0: SOUND 

0:WEND 
0: SOUND 

=0: SOUND 

■0: SOUND 

0: SOUND 



1,2273 >NU 

1,2145 >NZ 

1,2025 >NR 

>UC 
2,1911 >NI 

2,1804 )NI 

2,1703 >NA 

2,1607 >NC 

2,1517 >NE 

m 

2,1432 >HV 
2,1351 >NU 
2,1276 >NC 
2,1204 >NR 



CPC 



HORS-SERIE 13 



DISC CPC HS 13 




Pour l'achat de la disquette, nous 
joignons gratuitement 
la revue HS 13. 

J 140 F non abonné 
Li 110 F abonné 



Revue HS 13 seule 
□ 15F 




X 



• Hors-série 




Qn°2 


13F 


Qn° 3, 4, 5, 6, 7,8, 9,10,11, 12 


15F 



■ Disquettes Hors-série 

□ HS 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,13 140 F 
Chaque disquette comporta lous les programmas du n» hors-sari* cor- 
respondant. Les abonnés à CPC bénéficianl du tarif unitaire da 110 F 
pour les disquelles. 

Nom : Prénom : 



Code postal : 
Data: 



1 l'ordre des Ediri 



i lefs) numâro(s) cho 
15 SORACOM. Retournazlels) couponfs) ou un 



is SORACOM -La Haie 



1240 UHILE INKEY1 17>-0: SOUND 2,1136 >NZ 

,1,15:UEND 

12SÛ UHILE I NKEY U6>=0: SOUND 2,1073 >HZ 

,i,15:UEND 

1260 UHILE 1NKEY(18)=0:S0UND 2,1012 >HV 

,1,1S:UESD 

1270 UHILE IHKEÏ(D--0:GQTO 530:UEND >DD 

1280 GOTO 1000 >LK 

2000 CALL fcBB06:HHILE INKEY(68)=0:S >8H 

OUND 1,1911. 1,15: UEND 

2010 UHILE 1NKET<64)=D:S0UND 1,1804 >NÏ 

,1.15: UEND 

2020 UHILE I NKEY ( 67 >=0: SOUND 1,1703 >NA 

,1,15:UEKD 

2030 UHILE I NKEY < 65 t=0: SOUND 1,1607 >NC 

,1,15:UEND 

2040 UHILE 1 NKEY ( 59 )=0: SOUND 1,1517 >NG 

,l,15iUEND 

2050 UHILE INKEYI57)=0:UEND >UH 

2060 UHILE I HKET ( 58 )=0: SOUHD 1,1432 )ND 

,1,15:UEND 

2070 UHILE !HKEY(56)=0:SOUND 1,1351 >NC 

,l t 15:UEHD 

2080 UHILE INKEYI 50 1=0: SOUND 1,1276 >ND 

,1,15:UEND 

2090 UHILE ! NKEY (49 MO: SOUND 1,1204 >ND 

,1,15:UEHD 

2100 UHILE INKEY(51>=0:SOUND 1,1136 >NH 

,1,15:UEND 

2110 UHILE INKEY(48)=0:S0UND 1,1073 >NZ 

,1,15:UEHD 

2120 UHILE INKEYI 43M0: SOUND 1,1012 >NM 

,1,15: UEND 

2130 UHILE IHKEY(41)=0:UEND >UD 

2140 UHILE I NKEY 142 MO: SOUND 2,956, >NF 

1,1S:IIE» 

2150 UHILE INKEY(40)=0:SQUND 2,902, >H0 

1,15:UEND 

2160 UHILE INKET(35)=O:S0UND 2,851, >ND 

1,15: UEND 

2170 UHILE I NKEY 133) =0: SOUND 2,804, >NA 

1,15:UEHD 

2180 UHILE INKEY (34 >=0: SOUND 2,758, >NL 

1,15:UEND 

2190 UHILE 1NKET(32)=0:UEND >UK 

2200 UHILE INKEY(27)=O:S0UND 2,716, >HH 

1,15:UEND 

2210 UHILE INKEY (25 MO: SOUND 2,676, >ND 

1,15:UEM> 

2220 UHILE I NKEY < 26 >=0: SOUND 2,638, )ND 

1,15:UEH) 

2230 UHILE INKEY (24 MO: SOUND 2,602, >HB 

1,15:UEND 

2240 UHILE IHKEY(17)=0:S0UND 2,568, >NH 

1,15:UEND 

2250 UHILE I NKEY (1GMÛ: SOUND 2,536, >NC 




1,15: UEND 

2260 UHILE INKET(18)=0:S0UND 2,506, >NC 

1,15: UEND 

2270 UHILE INKETI8)=0:G0T0 520:UEND >DL 

2280 UHILE INKET(1)=0:GOTO 540:UEND >DG 

2290 GOTO 2000 >HC 

3000 CALL bfiB06:UHILE INKEY(68)=0:S >AU 

fiUND 1,956, 1,15:UEND 

3010 UHILE I NKEY (64) =0: SOUND 1,902, >HE 

1,15: UEND 

3020 UHILE INKEY(67M0:S0UND 1,851, >ND 

1,15: UEND 

3030 UHILE INKEY(65)=0:SÛUND 1,804, >NA 

1,15: UEND 

3040 UHILE INKEY(59)=0:SUUND 1,758, >NN 

1,15: UEND 

3050 UHILE INKEY(57)=0:UEND >UN 

3060 UHILE INKEY(58)=0:50UND 1,716, >NH 

1,15:UEND 

3070 UHILE INKEY (56 MO: SOUND 1,676, >NH 

1,15:UEND 

3060 UHILE INKEY(50>=O:S0UND 1,638, >NE 

1,15: UEND 

3090 UHILE I NKEY < 49 MO: SOUND 1,602, >HE 

1,15:UEND 

3100 UHILE INKEY(51)=O:S0UHD 1,568, >NA 

1,15: UEND 

3110 UHILE IHŒY{48)=0:50UND 1,536, >NC 

1,15: UEND 

3120 UHILE ]NKEY143M0:S0UND 1,506, >HD 

1,15: UEND 

3130 UHILE INKEÏ(41)=0:UEND >UE 

3140 UHILE INKEYU2 1-0: SOUND 2,476, >NF 

1,15: UEND 

3150 UHILE INKEY(4ÛM0:S0UND 2,451, >HD 

1,15:UEND 

3160 UHILE I NKEY < 35 )=0: SOUND 2,426, ÏNC 

1,15:UEND 

3170 UHILE 1NKEYI33)=0:S0UND 2,402, >HD 

1,15: UEND 

3180 UHILE INKEYI34)-0:S0UND 2,379, >NL 

1,15: UEND 

3190 UHILE INKEÏ(32)=0:UEND >UL 

3200 UHILE I «CET ( 27 >=0: SOUND 2,356, >NC 

1,15: UEND 

3210 UHILE INKEY(25M0:S0UND 2,338, >HH 

1,15: UEND 

3220 UHILE INKEYI 26) =0:S0UND 2,319, >NA 

1,15: UEND 

3230 UHILE INKEY(24MO:S0UND 2,301, >HY 

1,15:UEND 

3240 UHILE !NXEY(17)=O:S0UHD 2,284, >ND 

1,15: UEND 



3250 UHILE !HKEY(16)=0:S0UND 2,268, >NF 

1,15: UEND 

3260 UHILE 1 NKEY < 18) =0: SOUND 2,253, >NC 

1,15:UEND 

3270 UHILE INKEY 18 MO: GOTO 530:UEHD >DN 

3280 UHILE 1NKEY(1)=0:GOTO 5S0:UEND >DJ 

3290 GOTO 3000 >Hf 

4000 CALL bBB06:UHILE IKKEÏ(68)=0:S >AU 

OUND 1, 478,1, 15:UEND 

4010 UHILE INKEY(64)=A:S0UND 1,451, >HE 

1,15: UEND 

4020 UHILE ! NKEY (67) =0: SOUND 1,426, >NC 

1,15: UEND 

4030 UHILE 1NKET(65)=0:S0UND 1,402, >HD 

1,15: UEND 

4040 UHILE I NKEY ( 59 )=0: SOUND 1,379, >HN 

1,15: UEND 

40S0 UHILE INKETf 571=0: UEND >UP 

4060 UHILE I NKEY < 58 I^O: SOUND 1,358, >NL 

1,15: UEND 

4070 UHILE l NKEY ( 56 )=0: SOUHD 1,338, >NH 

1,15: UEND 

4060 UHILE INKEYI 50 M0:50UND 1,319, >NB 

1,15:UEND 

4090 UHILE 1NKEYU9 MO: SOUND 1,301, >NB 

1,15: UEND 

4100 UHILE IHKEY(51}=O:S0UND 1,284, >HE 

1,15:UEND 

4110 UHILE I NKEY ( 48 )=0: SOUND 1,268, >HF 

l,15:liEHD 

4120 UHILE I NKEY ( 43 )=0: SOUND 1,253, >HD 

1,15: VEND 

4130 UHILE INKEY(41)=0:UEND >UF 

4140 UHILE IHKEY(42)=0:S0UND 2,239, >NH 

1,15:UEN0 

4150 UHILE INKEYI 401=0: SOUND 2,225, >HD 

1,1S:UEND 

4160 UHILE INKEYI 35)^0: SOUND 2,213, >HF 

i,15:UEND 

4170 UHILE 1 NKEY (33 MO: SOUND 2,201, >HB 

1,15: UEND 

4180 UHILE I NKEY I 34 )=0: SOUND 2,190, >NC 

1,15: UEND 

4190 UHILE INKEY(32)-0:UEND >Ufl 

4200 UHILE INKEY (27 1-0: SOUND 2,179, >N£ 

1,15: UEND 

4210 UHILE INKEY<25)=O:S0UND 2,169, >HC 

1,15: UEND 

4220 UHILE I HKET ( 26 )=0: SOUND 2,159, >ND 

1,15:UEND 

4230 UHILE I NKEY ( 24 )=0: SOUND 2,150, >HB 

1,15:UEHD 

4240 UHILE INKET(17)=0:S0UND 2,142, >HF 

1,15:UEND 

4250 UHILE IHKEY(16)=0:S0UND 2,134, >HG 

1,15: UEND 



▲ 



4260 UHILE INKEY(18)=O:S0UND 2,127, >ND 

1,15:UEK> 

4270 UHILE INKEY(8)=0:GOTO 540:UEND >DQ 

4280 UHILE INKEY(1)=0:GOTO 560:UEND >DL 

4290 GOTO 4000 >HG 

5000 CALL bBB06:UHILE INKEY<G8)=0:S >AP 

QUHD 1, 239,1, 15:UEND 

5010 UHILE IHKEY(64)=0:S0UND 1,225, >HE 

1,15:UEHD 

5020 UHILE INKEY(67)=0:S0UND 1,213, >HF 

1,15: «END 

5030 UHILE INKEY<G5>=0: SOUND 1,201, >HB 

1,15:UEH) 

5040 UHILE 1HKEÏ(59^0:SOUND 1,100, >HE 

1,15:UEHD 

5050 UHILE INKEY(57>=0:UEND >UQ 

5060 UHILE I NKEY I 58 )=0: SOUND 1,179, >W 

1,1 S: « END 

5070 UHILE I NKEY ( 56 )=0: SOUND 1,189, >NL 

1,15:UEM> 

50SO UHILE 1NKEY<50)=0:S0IIND 1,159, >NE 

1,15:UEND 

5090 UHILE INKEY(49)=0:S0UND 1,150, >NE 

1,15:UEND 

5100 UHILE INKEY(51)=0:S0UND 1,142, >M¥ 

1,15:UEHD 

5110 UHILE I NKEY ( 48 )=0: SOUND 1,134, >HG 

1,15:UEHD 

5120 UHILE INKET(43)=0:S0UND 1,127, )HE 

1,15:UEND 

5130 UHILE INKETi41)=0:UEND >UG 

5140 UHILE INKEY(42)=0:S0UND 2,119, >HH 

1,15:UEND 

5150 UHILE !NKEYI40)=0; SOUND 2,113, >HA 

1,15:UEND 

5160 UHILE !NKET< 35 1=0: SOUND 2,106, >MH 

1,15:UEND 

5170 UHILE INKEY(33)=0:S0UND 2,100, >KA 

1,15:UEND 

5180 UHILE ! NKEYI 34) =0: SOUND 2,95,1 >HR 

,15:UEHD 

5190 UHILE !NKEY(32)=0:UEH.D >UN 

5200 UHILE INKEYf 27) =0: SOUND 2,B9,1 >HP 

,15:UEND 

5210 UHILE 1NKET(25»=0:SOUND 2,84,1 >HH 

,15:UEND 

5220 UHILE IHKEY(26)=0:SOUHD 2,80,1 >NF 

,15:UEND 

5230 UHILE INKEY(24)=0:SOUND 2,75,1 >NJ 

,15:UEND 

5240 UHILE I NKEYI 17) =0:SQUND 2,71,1 >NH 

,15:UEND 

5250 UHILE IJKEY(16)=0:SOUND 2,67,1 >HN 

,15:UEND 

5260 UHILE INKEY(1B)=0:S0UND 2,63,1 >HH 



V**\^%^V^VV^\ ' 627 ° UHILE I NK " ,8)=( > :G(iTD 560:UEND >DV 

^ÎJJUÎOJ^^-^ 3 ^ 1 -" 6280 ml£ ]KKEY(1)=0:G0T0 580:UEND >DQ 

5270 UHILE IHKET<B)=0:GOTO 550:UEND >DT | 6290 GOTO 6000 >HA 

5280 UHILE INKEY(1)=0:GOTÛ 570:UEND >DN 7000 CALL fcBBOfi:UHILE INKEY(68)=0:S >ZE 

5290 GDTO 5000 >HJ OUND 1,60, 1,15:UEND 



6000 CALL fcBB06:UHlLE INKEY(68)^0:S >AH 

OUND 1, 119,1, 1S:UEND 

6010 UHILE INKEY (64 1^0: SOUND 1,113, >NB 

1,1S:UEHD 

6020 UHILE 1NKEY(67)=0:SQUND 1,106, >HH 

1,15:U£ND 



7010 UHILE INKEY(64)=0:S0UND 1,56,1 >HJ 

,15:UEND 

7020 UHiLE INKEY(67>=Q:S0UND 1,53,1 >HK 

,15:UEND 

7030 UHILE INKEY!65)=O:S0UND 1,50,1 >HF 

,15:UEND 



6030 UHILE INKEY(65)=0:50UND 1,100, >HA ! 7040 UHILE INKEY(59)=0:S0UND 1.47,1 >HR 

1,15:UEND ,15:UEND 

6040 UHILE I NKEYI 59) =0: SOUND 1,95,1 >«li 7050 UHILE iNKEYt57>=0:UEND >UT 

,15:UEND 7060 UHILE 1NKEY(56)=0:S0UND 1,45,1 >HQ 

6050 UHILE INKEY!57)=0:UEND >UB ,15:UEND 

6060 UHILE INKEY(58)=0:S0UND 1,89,1 >HY 7070 UHILE INKEY(56>=0: SOUND 1,42,1 >HL 

,15:UEND ,15:UEM> 

6070 UHILE INKEY (56 )=0: SOUND 1,64,1 >HR 7080 UHILE 1NKEY(50)=O:S0UND 1,40,1 >RD 

,15:UEND ,15:UEND 

6080 UHILE 1HKEYI50)=0:S0UND 1,80,1 >HG 7090 UHILE ! NKEY (48 > =0 : SOUND 1,38,1 >HU 

,15:UEND ,15:UEND 

6090 UHILE INKEY149)=0:SUUND 1,75,1 >ffll 7100 UHILE INKEY<51)=0: SOUND 1,36,1 >HC 

,15:UEND ,15:UEND 

8100 UHILE ]NKEYlSiI=0:SOUND 1,71,1 >HA ' 7110 UHILE 1NKEYI48 1=0: SOUND 1,34,1 >HH 

,15:UEND ,15:UEND 



6110 UHILE INKEY(4B)=O:S0UND 1,67,1 >IW 

,15:UEH> 

6120 UHILE INKET<43)=0:50UND 1,63,1 >HE 

,15:UEND 

6130 UHILE INKEY(41)=0:UEND >UH 

6140 UHILE INKEY(42)=0:S0UND 2,60,1 >H> 

,15:WEND 

6150 UHILE INKEY (40)^0: SOUND 2,56,1 >HH 

,15:UEND 

6160 UHILE IHKEY(35)=0:50UND 2,53,1 >HK 

,15:UEND 



7120 UHILE INKEY(43)=Q:S0UND 1,32,1 >NB 

,15:UEND 

7130 UHILE INKEY141)=0:UEND >UJ 

7140 UHILE INKEY(42)=0:SQUND 2,30,1 >«B 

, 15:UEND 

7150 UHILE ÎNKEY(40)^0:SÛUND 2,28,1 >HH 

,15:UEND 

7160 UHILE INKEY I 35) =0: SOUND 2,27,1 >HH 

,1S:UEND 

7170 UHILE I NKEYI 33) =0: SOUND 2,25,1 >HJ 

,15:UEND 



6170 UHILE 1NKEY(33>=0:50UND 2,50,1 >HF 71B0 UHILE !NKEY(34)=0:S0UND 2,24,1 >(W 

,15:UEK> ,15:UEND 

6180 UHILE INKEY<34)=O:S0UND 2,47,1 >HP 7190 UHILE I NKEYI 32 >=0:UEND >UQ 

,15:UEND 7200 UHILE INK£Y(27)=0:S0UND 2,22,1 >HC 

6190 UHILE 1 NKEYI 321 =0:UEND >UP ,tS:UENS 

6200 UHILE 1NKEY(27)=0:SOUND 2,45,1 >NG 7210 UHILE INKEY (25)^0: SOUND 2,21,1 )ltt 

,15:UEND ,15:UEND 

6210 UHILE INKEY(25>--0:S0UND 2,42,1 >HC 7220 UHILE I NKEY ( 26 )=0: SOUND 2,20,1 >NB 

,15:UEND ,15:UEND 

6220 UHILE I NKEY < 26 )=0: SOUND 2,40,1 )HC 7230 UHILE INKET(24)=0:S0UND 2,19,1 >HJ 

,15:UEND ,15:UEND 

B230 UHILE I NKEY ( 24 )*0; SOUND 2,38,1 >HJ 7240 UHILE INKEY(17)=0:S0UND 2,18,1 >HL 

,15:UEND : ,15:UEND 



6240 UHILE INKET<17)=0:S0UND 2,36,1 >HK 

,15:UEND 

8250 UHILE INKEY (16) =0: SOUND 2,34,1 >» 

,15:UEND 

6260 UHILE INKEY(1B)=0:SOUND 2,32,1 >HJ 

,15:UEND 



7250 UHILE 1NKEY(16M0:S0UHD 2,17,1 >HK 

,15:UEND 

7260 UHILE INKEY(1B)=0:S0UHD 2,16,1 >HH 

,15:UEND 

7270 UHILE INKEY ( 8) =0: GOTO 570:UEND >DI 

7280 GOTO 7000 >ffi 




CONTACT 



Il pleut, vous ne savez que 
faire, c'est le moment 
d'allumer votre cher CPC 
et de lancer : 
"CONTACT". 
Vous passerez alors un bon 
moment de détente à 
chercher une solution 
efficace pour ce satané 
ordinateur, et si vous êtes 
deux, pourquoi ne pas 
jouer l'un contre l'autre ? 




Comme la plupart des jeux, il vous 
faudra faire le maximum de points 
pour gagner. 
Les règles de Contact sont très simples, 
il vous suffit de toucher des pions enne- 
mis pour qu'aussitôt ils se transforment 
en pions amis. 

Simple non ! 

Pourtant vous rencontrerez quelques dif- 
ficultés à vaincre le programme, il vous 
faudra trouver une technique efficace pour 
gagner. 

Une fois l'inévitable présentation et le 
mode d'emploi O/N, l'écran se présente 
de la manière suivante : 

1) En bas de l'écran tenant toute la lar- 
geur et d'une hauteur de 5 lignes, un 
bandeau réservé aux messages tels que 
"JOUEUR X VOTRE CHOIX"... etc. 

2) La partie supérieure est divisée en deux 
parties égales. 

a) A droite un damier numéroté de 1 à 8 
et de A à H soil 8 fois 8 cases. 

Le choix est simple : ex. : Al, A8, F5, 
Gl etc. aucune erreur n'est possible, loul 
est géré par l'ordinateur. 
ex. : ainsi la frappe de A9 sera refusée, 
tout comme la frappe de A8 si c'est une 
case occupée. 

b) La partie gauche de l'écran sert à vi- 
sualiser ce qui reste à jouer, les points 
respectifs de chaque joueur, le temps et 
la dernière case jouée. 



De plus un petit baromètre indique à cha- 
que tour qui gagne, ou s'il y a match nul. 

Deux forces de jeu vous sont propo- 
sées 

* force 1 : vous pouvez placer vos points 
où bon vous semble ; 

• force 2 : là vous serez obligé de "col- 
ler" une case occupée par un pion ami 
ou ennemi, cette obligation rend le jeu 
beaucoup plus difficile. 

Si vous jouez contre l'ordinateur vous 
aurez les "O" et vous commencerez. 
A deux, vous pouvez choisir votre camp 
et celui qui commence. 
Voici les principales variables utilisées, 
je ne vous les cite pas toutes car il y en a 
environ 140 et elles sont utilisées plus 
de 1000 fois. 

MO() : contenu d'une case (val 

0,1,3,-1) 

MZ( ) : adresse d'une case 

NY(),NX() : coordonnée d'une case 
FLX ,FLO : compteur des O et des X 
(reste à jouer) 

SCO ,SCX :compteur des O ei des X 
(gains de chacun) 
J2$=CHR$(202):j 3$=CHR$(203) 
Les variables commençant par la lettre 
A suivie de 2 chiffres représentent des 
CHR$(xxx) 
ex.: A50S=CHR$(150) 
: A80$=A50$+A5I$ 
L'essayer c'est l'adopter. 



► 10 's CONTACT i par BARJOH G:HARGES >LA 
26 



20 ' 



>LB 



30 'pour la revue CPC >LC 

40 ' >LD 

50 'présentation du Jeu >LE 

60 ' >LF 

I 16:INK 0,16 >VB 



70 RODE 0:BOBI 
80 DIH PU41 



>HC 



90 FOR 1=0 TO 14 >VD 

100 REM>P(I):IHK 1*1, PU) MIL 

110 HFTT >DH 

120 DATA 0,1,3,6,0,9,15,18 >SF 

130 DATA 20,7,1,15,4,6,15 >RV 

140 CLG 0:PAPER 0:011 G IN 320,200 >ZT 

150 FOR J;0 T0 103 >LH 

160 l=J»Pl/S2 >LB 

170 H0VE COS(1)*150,51H(1»200 >TL 
klBO DRAU COS(l)i320,SIH(I)t80,J H0D >FH 



13*1 

190 NEIT >EF 

200 L0CATE 4,2:PtlNT CHMI22) >XB 

210 PRUTT CHRtlU'BARJOti GEORGES' >CA 

220 L0CATE 7,13:PBiHT» C0HTACT >AB 

230 LOCATE 14,24:Pft|IIT"(C>19n" >ZG 

240 FOR X=l T0 2 >VG 

250 FOR J=i T0 9 >lffl 

260 FOR 1=1 T0 13 >CD 

.270 1HK 1,P((J+I)H0D 13) >N 



A 



>RE 



200 NEXT [,J t K 
290 GOSUB 6740 
300 ' 

310 'voir le tenu o/n 

320 ■ >BF 

330 IHK l,i:HODE 1:G0SIIB 5940 >¥F 

340 LOCATE 13,10:PRIMT A50t; >UT 

350 PHlIfT STRING*(1S,A5**>; >UN 
360 PRINT A56t:LCCATE 13,11:PS1HT A >GK 
49* ; 

370 PRINT 5PACEt(15);A49* >UD, 

3B0 LOCATE 13,i2:PRINT A49»; >WH 

390 PRINT" CONTACT «;A49» >n 

400 LOCATE 13,13:PRINT A49*; >tfB 

410 PRINT SPACE*U5);A49* >UK 

420 LOCATE 13,14:PRINT A47*; >«C 

430 PRINT STR[NGt(15,A54t); >lffl 

440 PRINT A53*:L0CATE 13,20 >VP 

4S0 PRLHT*HODE D'EHPLQI O/N" >TU 

460 LOCATE 13,21 >DJ 

470 PRINT 5TRINGt(17,A54t(; >VU 

460 C*=INKEY*:IF C*="THEN 480 >ID 

490 C*=UPPER»<Ct) >Llt 

500 IF Ct^O'THEH GOSUB 5430 >VB 

510 ■ >RG 
520 'initialisations des var et dii >RH 

530 ' >RJ 

540 MODE 1:GGSUB 5660:GDSUB 5260 >ZU 

550 DEF1NT A-Z:NE= 102: GOSUB 5940 >AA 

560 RAHD011IZE TIHE:FLI=32:FL0^32 >CC 

570 DIH NT(NE),I(I(NE) >QD 

580 DIH I10(NE),Z2(NE>,HZ(NE> >ÏY 

590 DIH TRI(ffi),NH<NE),ADl30) >IF 

600 DIH IN(NE),A(20),B(20) >TU 

610 DIH VA(30),VB(30):T!=TIHE >IR 

620 IF PAStO'l'THEN S60 >RC 

630 GOSUB 1500:GOSUB 2040 >TU 

640 GOSUB leSO^-OO' >PC 

G50 GOSUB 288O:G0T0 690 >RT 
660 GOSUB 2040; LOCATE 1,1: GOSUB 606 >DB 



670 GOSUB 2680:C*-"00 , :GOSUB 28B0 >AF 

680 * >TE 

690 'a qui le tour (les i ou les o >TF 

) 

700 ' >RH 

710 LOCATE 4,22 >ID 

720 PRINT'CONTRE L'ûfiDlNATEUR(l) OU >n 

A DEUK2) 1 

730 B*=INKEY*:IF B*="THEK 730 >n 

740 ÛRDt=Bt >VF 

750 IF ORDt="i'OR ORDI^THEN 760 >HA 
ELSE 730 

760 GOSUB 3130 >QB 
770 IF 0RDt='2 B THEN 780 ELSE COHt=* >NT 
1VG0T0 830 




760 GOSUB 3130 

790 LOCATE 10,22:PRINT'qU] COHKENCE >HT 
■;J2»; 

800 PRINT' =1 ";J3t;' =2' >TC 

810 Ct=INKEY*:IF Ct="THEN 810 >n 

820 C*=UPPER*!Ct):COfW=C» >UP 

: 830 GOSUB 3130 >PK 

B40 LOCATE 12,22:PRINT"F0KCE (1) FO >LR 

| ICE (2)" 

850 Bt=IlflCEY*:lF Bt="THEM 850 >ID 

860 B*=UPPElt<flt) >LT 

870 IF Bt='2'THEN FORCE=1:GOTO 890 >BH 

j 880 IF B*<>'1' THEN 840 >PL 

890 IF CO«*=M , THEN Blt=J2»:G0TQ 92 >CÏ 

I 

, 900 Bl*=J3t:G0TD 920 >HV 

910 GOTO 790 >AC 

I 920 GOSUB 3130 >PK 

930 IF B1*=J2*THEN FU=FLI-1:B3=1 >BP 

I 940 IF Bi*=J3tTHEN FLO=FLO-1:B3=3 >AH 

950 IF FLAG=0 THEN 1070 >QE 

1 960 LOCATE 31,22:PR!NT* ■ >VC 

970 ' >TG 

980 'iusique >TH 

990 ' >TJ 

1000 DATA 110,30,120,40,110,30,140, >BH 
40 

1010 RESTORE 1000 >LB 

1020 FOR 1=1 T0 4 >BE 

1030 READ NOTE.TEHP >P« 

1040 SOUND 1,H0TE,TE«P,15 >VC 

1050 HEJT >KH 

1060 ' )H 

1070 'jeu de l'ordinateur >YA 

1080 ' >TB 
1090 IF QRDt=M , AND ORTM THEN 1100 >JH 
ELSE 1150 

1100 T!=TI HE: LOCATE 10,22 >UQ 
1110 PRINTMOUEUR "Bit;" VOTRE CH01 >tK 

1120 GOSUB 3320:GOSUB 1660:G0SUB 17 >EG 

50 

1130 GOSUB 189O:G0T0 1430 >TE 

1140 ' >U 

1150 'joueur huiain >IK 

1160 ' >YA 

1170 T!=TIHE:LOCATE 10,22 >UÏ 

1180 PRIHT'JOUEUR "Bit;" «QTRE CH01 >JQ 

I '; 

1190 C*="":C*=IMŒ¥I:1F Ct^THEN 1 >K 



1220 IF C<65 OR D72 THEN GOSUB 313 >L2 
0:G0TD 1170 

1230 CCt=":CC»=!NKEY*:IF CC*="THE >HA 
N 1230 

1240 C=ASC(CC4) >YJ 
1250 IF C<49 OR C>56 THEN GOSUB 313 >LG 
0:GÛTO 1170 

1260 PRINT CC* >TH 

1270 Ct=Ct*CCt >KC 

1280 IF FLT=64 THEN 1400 >QD 

1290 IF FORCEE THEN 1400 }RG 

1300 TK=0:GOSUB 1590 >PC 

1310 FOR IF=C-11 TO C-9 >flJ 

1320 IF HO(RF)>0 THEN TK=TK+1 >WF 

1330 NEn >KJ 

1340 FOR RF=C+9 TO CU1 >QK 

1350 IF HO(Rf )>0 THEN TK=TK+1 >IA 

1360 KEIT >LB 

1370 IF HO(C-1)>0 THEN TK=TK+1 >n 

1380 IF HO(CH)>0 THEN TK=TK»1 >X8 
1390 IF TK=0 THEN PRINT B&t:GOSUB >RF 
3130: GOTO 1150 

1400 0RD=O:GOSUB 1750 >P2 

1410 GOSUB 1590:G0SUB 1890 >UJ 

1420 ' >IK 

1430 'affichage écran >YA 

1U0 ' >TB 

1450 LOCATE 6MTi2l,I >PB 

1460 PEN B3:PRIHT Blt:PEN 1 )VH 

1470 GOSUB 2450:G0SUB 2780 >UX 

1480 GOSUB 1970:GOTO 960 >RZ 

1490 ' >TG 

1500 'efface les i et les o >ll 

1510 ' >IK 

1520 RESTORE 2220 >LN 

1530 FOR 1=1 TO 64 >LN 

1540 READ N0,NN:CC=N0 >QA 

1550 GOSUB 1660:G0SUB 1750 >UG 

1560 LOCATE 6*(ïi2),I:PRINT" ■ >TR 

1570 NEXT:RETuRN >HB 

1580 ' >TG 
1590 'change et en c (no de case) >TH 

1600 ' >XK 

1610 CB=ASC<Ct) >TJ 

1620 CBB=A5C(HIDt(«,2,2)l >UG 
1630 C--((CB-64)*10iMfCBB-48Hl) >IV 

1640 RETURN >FE 

1650 * >TE 
1660 'change c en c* (valeur de cas >TF 
e) 



190 

1200 Ct=UPPE8t(Ct):C=ASC(Ct) 

1210 PRINT Ct; 



m 



1670 ' 

1680 BC=INT(CC/10) 
1690 Ct=CHRt<64+BC) 
1700 BBC=«X-(BCUO>) 
1710Cl*=Crœt(tBBC-n+4fl) 
V 1720 CI=Ct+QI 



>TG 




3000 POR K-l TO 5 >l 

3010 LOCATE 25,6*K:PRIHT" " >' 

3020 LOCATE 27,6+K:PRINr VNEXT >l 

3030 IF SCO=SCX THEN 3100 >' 

3040 IF SCO>SCX THEN 3080 >' 

3050 GOTO 3060 >l 

3060 LOCATE 27,7:PR1NT 12% >l 

3070 LOCATE 25, lhPRINT J3*:RETUBN » 

3080 LOCATE 25,7:PRINT J3* >l 

3090 LOCATE 27,11:PRINT J2*:RETURN X 

3100 LOCATE 25,9:PR]NT J3$ M 

3110 LOCATE 27,9:PHINT J2ï;RETURN >' 

3120 ' >; 

3130 'Efface lessage > 

3140 ' > 

3150 LOCATE 3,22:PRINT STRINGÏ(37," > 
■) 

3160 RETURN > 

3170 ' > 

3180 'fin ou rejouer > 

3190 ' > 

3200 FOE 1=200 TO 1 STEM > 

3210 SOUND 2,1,2 > 

3220 SOUND 5,201-1,2 > 

3230 HFJT > 

3240 FOR F11M TO iOOO:NEIT > 

3250 GOSUB 3130:L0CATE 9,22 > 

3260 PRINT'VQULEZ VOUS CONTINUER > 
/H* 

3270 C*=1NKET*:IF C»="THEN 3270 > 

3280 M=UPP£M(Ct) > 

3290 (F «=*0*THEN CLEAR: PAS*="1" :G > 
OTO 550 

3300 CL5:END ) 

3310 • > 

3320 'recherche de la banne case ? > 

3330 ' > 

3340 HL=1:F01 YM TO 64:ZZ=0:ZZ(Y)= > 
O:HS-0 

3350 H0'TR1(T):NN=KN(Y):IF HG(NOk) > 
THEH 3420 

3360 FOR I--N0-11 TO N0-9;G0SUB 3440 > 
:NFJT 

3370 FOR I=H0+9 TO N0+11:G0SUB 3440 ) 
:NEXT 

3380 FOR I=H0-1 TO HOU STEP 2:G0SU ) 
B 3440:HEIT 

3390 IF ZZ<10 THEH 3420 ) 

3400 IF HS+ZZ>=80 THEH ZZ=ZZ+MS > 

3410 h7(rU)=N0:H<HL)=ZZ+NN:HL=HL+l ) 

3420 HETT:GOSUB 351O:G0T0 3700 ) 

3430 ' 

3440 'test case des i 

3450 ' 




3460 IF «0(U=0 THEH RETURH >VK 

3470 IF HOUKO THEN HS=HS<10:RETUR >EZ 

H 

3480 IF H0(1)=1 THEH ZZ=ZZ+li:RETUR >EX 

H 

3490 ZZ=ZZM0:8ETURN >RN 

3500 ' >YA 

3510 'tri tjv >TB 

3520 ' >ÏC 

3530 S=l:A(l)=lîB<l)=HL >K 

3540 L=A(S):R=B(S):S=S-1 >TG 

3550 l=L:J=H;H=ZZUL*R>/2> >¥ï 

3560 IF ZZUKH AND KR THEN 1 = 1*1: >U 

GOTO 3560 

3570 IF ZZ(J))H AND J>L THEH J-J-l: >KF 

GOTO 3570 

3580 IF l>J THEH 3610 >NJ 

3590 ZZ=ZZ(1>:ZZ(I)=ZZ(J):ZZ(J}=ZZ >EE 

3600 HZ=HZll):HZU)=HZ(J)iHZ(J)=HZ: >TQ 

1=Hi:J=J-i 

3610 IF 1<=J THEH 3560 >PJ 

3620 IF R-K=J-L THEH 3650 >TB 

3630 IF L<J THEN S=S*1:A{S)=L:B(S>= >DE 

J 

3640 L= I îGOTO 3670 >HA 

3650 IF KR THEH S=S<1:A(S)=! :B(Sh >DT 



3670 IF R)L THEH 3550 >NZ 

3680 IF S>0 THEH 3540 >HV 

3690 RETURH >GB 

3700 N=HL*1 >VH 

3710 N=N-i:CH=Q:FTT=0:ZT-0:GOTO 373 >EC 


3720C=HZIH):CC=C:RETURH >m 

3730 IF ZZ(N)>=80 THEH 3720 >UZ 

3740 ZR=]NT!ZZ<N)/10> >QV 

3750 IF N<2 THEN N=HL:GOTO 4810 >TP 

3760 ON ZR GOTO 3790,3780,3830,3610 >BD 

3770 GOTO 3860 >PB 

3780 IF ZR=2 THEN 3710 >PF 

3790 IF FLT>20 THEN BZ=5:GOT0 3860 >BQ 

3800 BZ=4:G0T0 3860 >NZ 

3810 GOSUB 4490 >TB ' 

3820 IF FTT=1 THEN 3710 ELSE 3860 >ÏB 

3830 GOSUB 4160 >m 

3840 IF FTT=1 THEN 3710 >QH 

3850 ' >TJ 



3910 IF CH<12 OR CH>89 THEN 4080 >IR 

3920 IF HO(CHK>0 THEN 4080 >UD 

3930 GOTO 4000 >HG 

3940 IF ZR=1 AND ZT<BZ THEN 3720 >YG 

3950 IF ZR=3 AND ZT(5 THEH 3720 >XZ 

3960 IF ZR=4 AND ZT=4 THEN 3720 >ÏB 

3970 IF ZT=8 THEN ZZIN)=0 >TJ 

3980 IF 2T>=ZR THEH 3710 &5E 3720 )AA 

3990 * >ZD 

4000 'test de reprise >XG 

4010 ' >IH 

4020 ZS=0:ZY=t >AH 

4030 FOR ZI=CH-11 TO CH-9:G0SUB 410 >JK 

0:NEIT 

4040 FOR Zl^CH+9 TO CH+lhGOSUB 410 >JJ 

0:NEIT 

4050 FOR ZI=CH-1 TO CH+1 STEP 2:G0S >PD 

UB 4100:NEn 

4060 IF ZS»ZY=6 THEN ZY=ZYtZS >YH 

4070 IF ZT<ZY THEH ZT^ZY >UH 

4060 IF Y<7 THEH Y=Y+1:GOTO 3900 EL >HE 

SE 3940 

4090 ' >YF 

4100 'test case des o >IH 

4110 ' >IJ 

4120 IF H0(Z1)=0 THEH RETURH >«y 

4130 IF HO(ZI)>0 THEN ZY=ZY+t:RETUR >FV 

N 

4140 Z5=ZS»1:RETURN >QA 

4150 ' >YC 

4160 'test de 3 >YD 

4170 ' >YE 

4180 TT=KZiN):Fl=O:FL=0 >TH 

4190 IF TT=23 OR 17^28 OR TT=73 OR >QC 

TT=78 THEH 4210 

4200 GOTO 4320 >HC 

4210 FLAG=0:TX=0:FOR I*TM1 TO n- >DG 



3860 'reprise possible 

3870 ' 

3880 



>YD 

>TE ^3900 



DATA 11, 10,9, -11, -10,-9,1, -1 
RESTORE 3880:AD=HZ(N):Y=0 
READ HH:CH=AD*HH 



▲ 



>YK 



4220 IF HO(I))0 THEN TX=TXH >UX 

4230 NEn >LA 

4240 FOR l=TT+9 TO TTU1 >RN 

4250 IF HO(l)>0 THEN Tt'tîil >WA 

4260 HFJT >LD 

4270 IF H0(TT-1)>0 THEN TMXffM >CK 

4280 IF nO(TT*l>>0 THEH TMI»1T+1 >CG 

4290 Tn=ni3 >VB 

4300 D9=TXT+3:G9=TIT-3:B9=TXT*30:H9 >NI 

=nr-30 

4310 IF TI=D9 DR TX=G9 OR TX=H9 OR >R0 

TX=B9 THEN 4460 

4320 IF H0(TT-11)>0 THEN F1M:FL FL W 

+1 

4330 IF rtO<TT-9)>0 THEN F1=2:FLFL- !i. 

1 

4340 IF HQ(TT*9)>0 THEN F13:FL FL< DJ 




1730 RETURN 


>Ff 




« 


1740 ' 


>YE 






1750 'gestion al a2 etc.. 


>TF 






1760 ' 


>TG 


2150 NEIT 


>KK 


1770 C*=UPPER*(CI) 


>H!) 


21G0 RESTORE 2390 


>LT 


17B0 CV=ASC(HÏDt<Ct,t,lH-64 


>VC 


2170 FOR INITM TO 36 


>PP 


1790 ON Ct GOTO 1600,1010,1820, 183Q 


MM 


2180 READ IN 


>BB 


, 1840, 1BS0,1B60, 1870 




2190 H0(1H>=-1 


>RH 


1800 Y--t u ALIHIDI(«,2>M):I=3:RETU >FQ 


2200 NEIT 


>KF 


m 




2210 RETUHN 


>EJ 


lfllO Y=[VALi«lDi<Cï,2)>l):X=5:RETU >FU 


2220 DATA 12,3,13,2,14,2,15,2,16,2 


>ND 


w 




17,2,18,2,19,3 




1B20 Y=(VALfHID*lC»,2))-l>:X=7:fiFTU >FI 


2230 DATA 22,2,23,0,24,0,25,0,26,0 


>NY 


m 




27,0,28,0,29,2 




1630 Y=(VAL(HID$<C*,2)MhX--9:RETU >FA 


2240 DATA 32,2,33,0,34,1,35,1,36,1 


m 


RN 




37,1,38,0,39,2 




1B40 Y=IVAL<HID*IC*, 2)1-1 ):X=U:RET 


>GD 


2250 DATA 42,2,43,0,44,1,45,2,46,2 


m 


m 




47,1,48,0,49,2 




1850 Y=(VAL<rllD((C*,2))-l):M3:RET >GG 


2260 DATA 52,2,53,0,54,1,55,2,56,2 


>PA 


URN 




57,1,56,0,59,2 




1860 YMVAL(HIDI(C*,2>1-!):X=15:RE1 


>œ 


2270 DATA 62,2,63,0,64,1,65,1,66,1 


>PK 


URN 




67,1,68,0,69,2 




1870 Y=(VAL(HlDt(C*,2))-n:X=17:RET >GN 


2260 DATA 72,2,73,0,74,0,75,0,76,0 


>Ptr 


ORN 




77,0,76,0,79,2 




1680 ' 


>YK 


2290 DATA 82,3,83,2,84,2,85,2,86.2 


>PN 


1890 'est ce une case libre 


>ZA 


87,2,88,2,89,3 




1900 ' 


>TC 


2300 ' 


>XH 


1910 FOR YT=t TO 64 


>HJ 


2310 'val cases pour 1 


>IJ 


1920 IF C=TRKYT)THEN NO=TRi(YT):G[ 


>IU 


2320 ' 


m 


TO 1930 asE NEIT 




2330 DATA 12,50,13,30,14,30,15,30, 


>JZ 


1930 !F 0RD=1 TKEH LOCATE 31,22:PR 


>DS 


6,30,17,30 




NT C*:F0R 1=1 TO 800:NEXT 




2340 DATA 82,50,83,30,84,30,85,30,8 >I01 


1940 IF M<K)><>0 THEN PRIHT BELi:G >IQ 


6,30,B7,30 




OSUB 3130:GOTO 1150 




2350 DATA 22, 30, 32,30,42, 30,52, 30, E 


>JF 


1950 NY(NO)=6+(Yi2):NX(NO>=X:HO(N0 


>RV 


2,30,72,30 




=B3: RETURN 




2360 DATA 29,30,39,30,49,30,59,30,6 >KU 


1960 ■ 


>TJ 


9,30,79,30 




1970 'échange 


m 


2370 DATA 18,30,19,50,88,30,89,50 


m 


1980 ' 


>ZA 


2380 ' 


>TF 


1990 IF Blt=J2*THEN B1*=J3J:B3=3:FI 


^MB 


2390 'cases Inutilisables 


>TG 


0=FLO-1:GOTO 2010 




2400 ' 


>U 


ZOOO fll»=JZ»:B3=l:FLI-FLI-l 


m 


2410 DATA 1,2,3,4,5,6,7,8,9,10,11,2 >JT 


2010 IF ORD=i THEN 0RD=0 ELSE 0RD= 


>BQ 


0,21,30,31 




2020 RETURN 


>EH 


2420 DATA 40,41,50,51,60,61,70,71, 


>KZ 


2030 ' 


>ÏH 


0,81,90,91 




2040 'lecture no de case 


m 


2430 DATA 92,93,94,95,96,97,98,99, 


>CG 


2050 ' 


>K 


00 




2060 RESTORE 2220 


m 


2440 ' 


>TC 


2070 FOI 1=1 TO 64 


>\M 


2450 'test cases adjacentes 


>TD 


2080 SEAD TD.NK 


>CD 


2460 ' 


)ÏE 


2090 TRH1)=TD:MNU)=NN 


m 


2470 IF B1*=J2*THEN B2=t:G0T0 2490 


>AP 


2100 NEIT 


>KE 


2480 B2=3 


>BE 


2110 RESTORE 2310 


>U 


2490 PEN B2 


>ac 


2120 FOR HK=1 TO 26 


m 


2500 FOR l=HO-ll TO ffl-9 


m 


2130 READ VA.VB 


m 


2510 IF HO(l Kl THEN 2540 


>RÏ 


2140 VA<HK)=¥A:VB(HK)=VB 


>UA 


► 2520 LOCATE NYU), NUI) 


>RT 



2530 PRINT B[*:H0(I>=B2 

2540 NFJT 

2550 FOR l=N0*9 TO NO+11 

2560 IF HOU Kl THEN 2590 

2570 LOCATE NY(I),NIU> 

25B0 PRINT B1*:H0II)=B2 

2590 HEIT 

2600 IF H0(N0-1K1 THEN 2630 

2610 LDCATE NT(NO-l),lflC(Ha-l} 

2620 PRINT Bl*:nO(((D-i)=B2 

2630 IF HOCNDilXl THEN 2660 

2640 LOCATE NY(NOn>,NÏ(N0tl) 

2650 PRINT BIt:H0(N0+l)=B2 

2660 PEN 1 

2670 ' 

2680 'calcul du score 



>ÏJ 
>TK 



>QU 



2700 SCO=0:SCX=0 

2710 FOR 1=12 TO 89 

2720 IF H0U1=1 THEN SCI=SCXM 

2730 IF «0111=3 THEN SCO=SCDH 

2740 NEIT 

2750 FLT=64-<SCHSC0) 

2760 RETURN 

2770 ' >tj 

2780 'scores des i et des o >TK 

2790 • >za 

2800 IF FLI<=0 AND FLÛ<=0 THEN GOSU >DC 

B 2B80:GOTO 2810 ELSE 2880 

2B10 GÛSUB 3130 >IA 

2820 IF SCI>SCO THEN LOCATE 12,22:P >«C 

RINT-LES ";J2*;" ONT GAGNES"; 

2830 IF SCKSCO THEN LOCATE 12,22:P >HC 

RINT-LES ";J3$;" ONT GAGNES"; 

2840 IF SCO-SCÏ THEN LOCATE 7,22:PR >UH 

IHT" HATCH NUL , PA5 «AL JOUER *; 

2850 GOTO 3180 >NE 

2860 RETURN >FK 

2870 ' )TK 

2880 'affichage >ZA 

2890 ' >Zfl 

2900 TT!=(TIHE-T!>/30Q:TP!=0 >1IB 

2910 LOCATE 28,3:PRINT USING"II";FL >ER 



2920 LOCATE 37,3:PRINT USINGMI'iFL >EC 

2930 LOCATE 28,18:PRINT U5iNGMi fl ;5 >GJ 

CO; 

2940 LOCATE 37,18:PHIHT USI»G"II";S >FT 

CI 

2950 LOCATE 25,14:TP=TT!»100 >«L 

2960 IF FLT=64 THEN PRINT USINGMI. >TR 

ll";O:GOT0 2990 

2970 IF TP>9999 THFJ TP=9999 >VN 

2980 PRINT USING"IMI";TP/100 >n 

2990 LOCATE 37,14:PRINT C»:T!=0:TT! >EG 






4350 [F HOITTtllDO THE» F1=4:FL=R >DU 1 

tl 

4360 IF ROI THEN 4470 >QF 

4370 OH FI GOTO 4400,4380,4440,4420 >AH 

4300 IF HO(TT-20>=0 OB H0<TM9)=0 >RH 

OR R0(n-6)=0 01 H0(TT*2)=C THEN 44 

60 

4390 GOTO 4470 >NI 

4400 IF M<TT-20>=0 01 H0(TT-21>=0 >TH 

OR H0(TT-2>=0 OR H0(TT-12>=0 THEN 4 

460 

4410 GOTO 4470 >HB 

4420 IF HD(TT«20)=0 OR H0fTT+21>=0 >TD 

OR H0(TT+2>=0 OR H0(TT+121=0 THEH 4 

460 

4430 GOTO 4470 >ND 

4440 IF H0(TT420I=0 OS H0(TM9>=0 >!A 

OS H0(n-2)=0 02 H0(mO)=O THEH 44 



>«. 



4450 GOTO 4470 

4460FTT'l 

4470 RETURH 

4490 ' 

4490 'test de 4 

4500 ' 

4510TT=HZ<N]:FT=0:FTT=0 

4520 FOR T=TT-ll TO TT-9 

4530 IF HOITDO THE» FT=FTtT 

4540 HEIT >LE 

4550 FOR T=TO9 TO TTtll >RE 

4560 IF HO(TI>0 THEH FT=FT*T >IH> 

4570 NFJT >LH 

4580 IF HO(TTU)>0 THEH FMTiTT+1 >BE 

4590 IF H0CTT-1»0 THEH FT=FMT-I >BK 

4600 ST=HZ(HH4 )EF 

4610 IF FT=ST-31 THEH 4700 >TK 

4620 IF FT=ST*31 THEH 4710 >TK 

4630 IF FT=ST-29 THEH 4730 >TY 

4640 IF FT=ST»29 THE» 4720 >TÏ 

4650 IF FT=ST)7 THEH 4740 >TA 

4660 IF FT=ST-7 THEH 4750 >TE 

4670 IF FT=STU3 THEH 4760 >T» 

4680 IF FT=ST-13 THEH 4770 >TA 

4690 GOTO 4790 >FG 

4700 IF H0(TT-8K1 THEH 4780 ELSE 4 >DG 

790 

4710 IF HOimSKl THEH 4760 ELSE 4 >0F 

790 

4720 IF HDITT+12K1 THEH 4780 ELSE >DR 

4790 

4730 IF H0tTT-12Kl THEH 4780 ELSE >DV 

4790 

4740 IF H0(TT-21K1 THEN 4780 ELSE >MI 

4790 

4750 IF H0(TT+21K1 THEN 4780 ELSE >DV 



4790 

4760 IF H0m-19Xl THEH 4780 ELSE >DF 

4790 

4770 IF H0ITM9K1 THEH 4780 ELSE >DE 

4790 

4780 FTT=1 >JK 

4790IET0RH >GD 

4800' >TE 

4010 'Ici on joue le aieui ? >TF 

4620 ' >TG 

4830 FOR HK=2 TO HL >HT 

4840 FOR HJ.J TO 28 HT 

4850 IF HZ(IK1=VAIHI) THEH ZZ(HKI=Z >TH 

ZIIKIXRIHII 

4960 MEIT:»FJT >LG 

4870 GOSUB 3510 >T« 

4890 N=HLil >VH 

4890 H=H-1:ZZ(N) = IHTIZZ(N)/10) >ZV 

4900 IF N<=2 THEN N=HL:GOT0 3720 >ZA 

4910 IF ZZ(H)>6 THEH 4890 >RD 

4920 GOTO 4940 >HK 

4930 ' >TJ 

4940 'test des trous >TK 

4950 ' m 

4960 FOR Z=l TO G:AO(Z)=0:HEXT >TJ 

4970 TB=HZ(H):TZ=0 >HD 

4980 FOR i=TR-ll TO TR-9 >RT 

4990 IF H0(1I=0 THEN TZ=TZ4l:AD(TZ) >FP 

=1 

5000 HEIT >KG 

5010 FOS I=TR+9 TO TR+U >RE 

5020 IF 1(0(11=0 THEN TZ=TZ<1:AD(TZ1 >EG 

=1 

5030 HEIT >KX 

5040 IF HO(TR-1)=0 THEH TZ=TZ+1:AD( >HH 

TZ)=TR-( 

5050 IF HO(TR*1)=0 THEH TZ=TZ+1:AD< >HJ 

TZ>=TH»1 

5060 IF H=l THEN 4890 >PK 

5070 IF TZ>3 THEH 3720 >PE 

5080 ' >TT 

5090 'recherche supleaentaire >TG 

5100 ' )ÏJ 

5110 ZT=1 >GD 

5120 IF ZT>TZ THEN H=N-t:GGTO 4690 >8B 

5130 TIO=0 >«F 

5140 FOR T=ADCZT>-11 TO AD(ZTI-9 >ZJ 

5150 IF HOITIOO THEH TR0=TR0<1 >ZE 

5160 NEIT >LD 

5170 FOR T=AD<ZT)*9 TO ADIZTltll YB. 

5180 IF HOITIOO THEH TRO'TROil >ZH 

5190 HEIT >LG 

5200 IF HO(AD(ZT>)-100 THEH TRO=TR >FG 



5210 IF H0(AD(ZT))tlO0 THEH TRO=TR >FF 

DM 

5220 IF TR0=6 AND ZZIHX7 THEH 3720 >BE 

5230 IF TR0=5 AND ZZIHX7 THEH 3720 >BE 



5240 


ZT=ZT*1:G0T0 5120 


>RF 


5250 


' 




>TE 


5260 


'araignée 




>TF 


5270 


' 




>TG 


5290 DEF1EAL a 


:ÏO=515:TO=280:R=20 >DQ 



5290 FOR H=l TO 3 5TEP 0.3 >SZ 

5300 PLOT IOtRiH,T0,l >PI 

5310 FOR A=PI/4 TO 2IPH0.1 STEP PI >CU 
/4 

5320 X=RiHiC0SIA)4X0 >PH 

5330 Y=RiH«SIN(AHTO >P» 

5340 DRAU X,T,I:PLOT 10,10 >ÏG 

5350 DRAU I,I:HEIT A,H >RL 

5360 PLOT IOt5,ÏO,l:DRA» 10*5,195 >AA 

5370L0CATE 33,13sPRINT CHH»{224> >AH 

5380 LOCATE 33, 14:PRINTCHRt(162l >AR 

5390 L0CATE32,14:PRIHTCHR»(192li »H 

5400 PRIHT CHR»(195);C!flM(193); >ïï 

5410 RETHRN >FD 

5420 ' >TD 

5430 '«ode d'eaploi >TE 

5440 ' >TF 

5450 MODE 2:L0CATE 23,2 >01 

5460 PRIHT' REGLE DU JEU DE a COH >HD 
TACT §■ 

5470 LOCATE 23,3 >ED 

5480 PRIHT" >JI 

5490 LOCATE 11,5 >EE 

5500 PRINT'LE BUT DU JEU EST DE PRE >ZU 
NDRE LE HA1IHUN DE CASES ADVERSES' 

5510 LOCATE 8,7 >TB 

5520 PelHT'IL VOUS FAUT SAVOIR QUE >HI 
LE SIMPLE CONTACT D'UNE CASE TRANSF 
ORBE" 

5530 LOCATE 8,9 >TF 

5540 PllHT'IHHEDIATEHEHT TOUTES LES >HH 
CASES ADJACENTES EH PIONS DE SON C 
AU" 

5550 LOCATE 8,13 >EG 

5590 PRINT'POUR PRENDRE IL VOUS FAU >GF 

T JOUER LIGNEtCOLOHNE EÏ:A1,B5 

ETC' 

5570 LOCATE 6,15 >EJ 

5580 PRINT'A FORCE (2) IL FAUT TOUC >KJ 

HFJ UNE CASE OCCUPEE PAS A FOR 

CE (1)" 

5590 LOCATE 30,19 >LP 






5600 PRIHT'ET BIEN JOUER. ...SVP" HTT « 

5610 LOCHE 25,21 >LG 

5620 PBIHT-BOHHE CHANCE SUITE ( >IH 

ENTER)" 

5630 C|=IHŒTI:IF Ct="THEH 5630 >ZK 

5610 RETURN >FJ 

56S0 ' >TJ 

5660 ' lettres fines >TK 

5670 ' >ZA 

5680 RESTORE 5740 >NC 

5690 STHBOL AFTER 65 >PH 

5700 FOR 1=65 TO 90 >L1 

5710 FOR 1=0 TO 6 >CG 

5720 READ I:TI!JI-I >NV 

5730 NEIT >LG 

5740 STIBOL l,niO),TIIl),TI[21,n( >BL 

3)JII4I,TI(5),TI(6) 

5750 NEIT >U 

5760 RETURN >GB 

5770 DATA 24,36,66,126,66,66,66,124 >IH 

,34,34,60,34 

5760 OATA 34,124,28,34,64,64,64,34, >FE 

28,120 

5790 DATA 36,34,34,34,36,120,126,64 )(S 

,64,124 

5600 DATA 64,64,126,126,64,64,124,6 >KG 

4,64,64,28 

5810 DATA 34,64,78,66,34,2e, 66,66,6 >HN 

6,126,66 

5820 DATA 66,66,26,6,8,8,8,8,28,14, >KC 

4,4,4,4,66 

5630 DATA 56,66,68,72,112,72,68,66, >m 
64,64,64 

5840 DATA 64,64,64,126,66,102,90,90 >JI 

,66,66,66 

5850 DATA 66,98,82,74,70,66,66,60,6 >K9 

6,66,66,66 

5860 DATA 66,60,124,66,66,124,64,64 >FD 

,64,60 

5870 DATA 66,66,66,74,68,58,124,66, )JP 

66,124,72 

5880 DATA 68,66,60,66,64,60,2,66,60 >GL 

,62,6,8 

5890 DATA 6,8,8,6,66,66,66,66,66,66 >JI 

,60,66,66 

5900 DATA 66,36,36,24,24,66,66,66,9 >HT 

0,90,102 

5910 DATA 99,66,66,36,24,36,66,66,3 >GR 

4,34,34 

5920 DATA 28,6,6,8,126,2,4,24,32,64 >0U 

,126 

5930 ' >TK 

5940 'chrt(m) en ni >ZA 

5950 ' >ZI 

5960 12t=aœ«C202):J3t=CIO»t203> >2K 

5979 A49»=CHRI(1«9I:A«!=MW147> >AZ 




5980 A5OI=CHRX150):ASil=CHRt(15t> >AI 

5990 A53i=Cmmi53)iA5»l=CflRI(15(l >AL 

6000 A55«>CHRtll55l:A56t=CNR«ll561 >AB 

6010 A57*=CHR»(157):A58*-CHfl4(158) >AL 

6020 A59>=CHR!tl59>:BELt=CHRK7> >ZF 

6030 A80*=A54«+A5B*:A81»=A54t«A56l >2G 

6040 AB2I=A54$*A59*:A831=A54HA57* >AF 

6050 A84t=AS4ltAS51:A851=A54t*A53t >AC 

6060 A86«=A494i" VRETURH >TÏ 

6070 ' >TF 



6030 'dessin du jeu 



>TC 



6100 PRINT TAB(6);"1 2 3 4 5 6 7 8" >AJ 

6110 PRIHT TAB(5);A5M;:F0R T=l TO >CF 
7 

6120 PRINT ABOI;:NEIT:PRINT A81« >Afi 

6130 FOR Y=l TO 7:PR1HT TAB15); >TV, 

6140 FOR 1=1 TO 9:PR1NT A86I; >W 

6150HEIT:FHHTTAJ)l5>;A51t; >U 

6160 FOR 1=1 TO 7:PRI*T A82»;:HEIT >BU 

6170 PRINT A83t:NEIT:PRIin TAB(S); >D0 

6180 FOR 1=1 TO 9:PR1NT A86I;:HFJT >BC 

6190 PRINT TAB<S):A47l;:F0R 1=1 TO XX 
7 

6200 PRIHT A84I;:NEIT:PRINT A85I >AZ 

6210 FOR 7=1 TO 8:L0CATE 3,(ÏI2>+1 >AB 

6220 PRIHT CNRtl64tTI:NFJT >W 
6230 LOCATE 5,19:PEN 1:PRINT CKRII2 >FJ 
4)i 



6240 PRINT"» c o n t a c t i"; >ZH 

6250 PRINT CH»(24):PEN 3 >TU 

6260 LOCATE 1,20:PRINT «501; m 

6270 PRINT STRIHGI(38,AS4I1;:PR1HT >HA 
«561 

6260 FOR 1=21 TO 23: LOCATE 1, 1 
6290 PRINT A49«;:FRINT TABI401;:PRI >KH 
HT A49I 

6300 NECT:LOCATE 1,I:PRINT A474; >AT 
6310 PRINT STRING1(36,AS41);:PRINT >GA 
A53I 

6320 PEN 1:L0CATE 24,1:PRINT CHRN2 >FC 
«»1 

6330 PRlHT'il reste a jouer";CHR*I2 >LZ 
4) 

6340 LOCATE 24,16:PRINT CHRK24); >AZ 
6350 PRIHT'total des points , ;CHRt(2 >ffil 
4) 

6360 LOCATE 21, 13:PRINT A50I >W 

6370 LOCATE 25,I3:PRINT STRIWtl5,A >HL 
5441 1 

6380 PRINT A56t:L0CATE 24,15 
6390 PRINT A47I:L0CATE 25,15 >IK 

>• 6400 PRINT STRING1(5,A54«); 



6410 PRIHT A53I:L0CATE 24,14:PRIHT >GT 

Hat 

6420 LOCATE 30, 14:PRINT A49I >HV 

6430 LOCATE 36, 13:PRIHT A50I >RT 

6440 LOCATE 39,13:PRIHT A564 >VD 

6450 LOCATE 36,15:PRINT A474 >VD 

6460 LOCATE 39, 15:PRIHT A53I >IIE 

6470 LOCATE 37,13:PRIHT STRING4(2,A >HH 

54»); 

6480 LOCATE 37,L5:PRIHT STR]NG*(2,A >HQ 

511); 

6490 LOCATE 36, UiPRIHT A49I VU 

6500 LOCATE 39, 11:PR[HT A491 >VD 

6510 LOCATE 25,3:PRIHT J31;" =" >TN 

6520 LOCATE 34,3:PHINT J24;" =" >TH 

6530 LOCATE 25,18:PRIHTJ3t;" =■ >ZT 

6540 LOCATE 34,18:PRIHT J2l|" ■• OT 

6550 LOCATE 24,2:PRIKT «501 >ÏT 

6560 LOCATE 25,2:PS1K7 STRINCKIS.A >HH 

54t); 

6570 LOCATE 39,2:PRIHT A56I >VH 

6580 LOCATE 24,4:PR1HT A474 >VE 

6590 LOCATE 25,4:PRINT STRINGtClS.A >8T 

54t); 

6600 LOCATE 3S,4:PRINT A534 >VA 

6610 LOCATE 24,3:PRIHT A49I >YZ 

6620 LOCATE 39,3:P«1»T A49) >VG 

6630 LOCATE 24, 17:PRIHT A50* >W 

6640 LOCATE 25,17:PRIHT STRINGtU*. >JD 

A5W); 

6650 LOCATE 39, l7:PBIrfT A56I >WL 

6660 LOCATE 24,19:PR1RT A47I »H 

6670 LOCATE 25,L9:PEIHT STRlNGÏdS, >JK 

AS4»); 

6680 LOCATE 39,19:PR1XT A53t >IM 

6690 LOCATE 24, 18:PRIXT 1191 >UH 

6700 LOCATE 39, 16:PRINT A491 >«K 

6710 FOI 1=1 TO 5:L0CATE 26,6*1 >Ili 

6720 PRINT A494:HEIT:RE™h >C 

6730 ' >TJ 

6740 '■usique )TK 

6750 ' >ZA 

6760 RESTORE 6830 >ID 

6770 FOR 1=1 TO 25 >U 

6780 READ N >TG 

6790 SOUND 1,H,35 >LU 

6800 HFJT >LF 

6810 SOUND 1,142,100 >HE 

6820 RETURN >FK 

6830 DATA 95,95, 142,127,119,106,, 95 >H 

,95 

6810 DATA 119,95,95,119,95,95,142,1 >CT 

19 

6850 DATA 142,179,119,142,142,106,1 >CI 



19 
r-6860 DATA 127,-1 



>TH 



A 



ILITAIRE 



DISCOVER 




Ce programme possède les 
caractéristiques suivantes : 
"cartographie" d'une disquette/localisation d'un 
fichier 

• restauration de fichiers effacés avec indication de la 
possibilité de l'opération 

• effacement de fichiers 

• indication de tous les paramètres d'un fichier 



LE FONCTIONNEMENT 

II faut taper DISCOVER.BAS et 
DISCOVER.DAT, puis lancer ce der- 
nier afin d'obtenir le programme en 
langage machine DISCOVER.BIN. 
Après chargement du logiciel, un mes- 
sage s'affiche invitant à introduire la 
disquette à "traiter" dans le lecteur, un 
autre message en demande le format. 

IMPORTANT : 

- la disquette ne doit pas être protégée 
contre l'écriture (elle ne risque rien de 
toute façon) 

- à partir de cet instant, elle ne doit plus 
quitter le lecteur jusqu'à la fin des opé- 
rations. Une sécurité est en place pour 
tester si c'est la bonne disquette et ainsi 
ne pas écraser un catalogue par erreur mais 
ce n'est pas une raison et cela évitera des 
scrollings intempestifs de l'écran. 
S'affiche ensuite une page catalogue qui 
n'a rien de comparable à celui obtenu avec 
l'instruction CAT car, ici même les fi- 
chiers effacés apparaissent. Il suffit alors 
de taper le n" du fichier que l'on veut 
effacer/restaurer/localiser ou sur lequel 
on souhaite des renseignements puis de 
valider avec ENTER. 

On obtient alors un écran semblable à celui 
de la figure 1 . 

Dans la partie gauche se trouve la "car- 
tographie" piste par piste et secteur par 
secteur avec : 



-en blanc, les secteurs non utilisés ; 

- en grisé, les secteurs affectés à des fi- 
chiers non effacés ; 

- en noir, les secteurs du fichier dont le 
n° a élé lapé précédemment ; 

- en hachuré (voir fig. 3), des secteurs 
appartenant à la fois à un fichier non ef- 
facé et à un fichier effacé (ce dernier ne 
peut donc plus être récupéré) ; 

- dans les parties droite et inférieure de 
l'écran se trouvent les renseignements sur 
le fichier indiqué ; 

- le n° USER sera remplacé par un ? si 
le fichier est effacé ; 

- le nombre de secteurs et de blocs est le 
nombre réellement occupé et non le 
nombre arrondi par AMSDOS ; 

- dans le cas d'un fichier ASCII PUR 
(OPENOUT); les mentions de la partie 
inférieure sont remplacées par "FICHIER 
ASCII" ; 

- le nom qui apparaît en haut est celui 
trouvé dans le catalogue, celui qui appa- 
raît en bas est celui qui figure dans (ou 
dans ce qui devrait être) le READER. 

LES OPTIONS 

Maintenant, 4 choix sont possibles, cha- 
cun correspondant à une touche de fonc- 
tion. 

- FICHIER touche FI : retour à la page 
catalogue pour choisir un autre fichier. 
Ce retour se faisant par commutation de 
pages-écrans, il est quasi instantané. 




- STATUT touche F2 : changement de 
statut du fichier indiqué. S'il était effa- 
cé, il sera à nouveau opérationnel et in- 
versement Une confirmation (touche 0/ 
N) est demandée puis si 0(ui) est action- 
née, le logiciel retourne à la page catalo- 
gue. 

- STOPPER touche F3 : "fermeture" de 
la disquette en cours. Ce n'est qu'à ce 
moment que les modifications deviennent 
définitives. 

Par mesure de sécurité, le logiciel véri- 
fie que la disquette qui se trouve à ce 
moment dans le lecteur est bien la même 
que celle du début. Sinon, un message 
signale l'erreur et invite à corriger. On 
peut ensuite traiter une autre disquette ou 
stopper le programme (CALL 0). 

- IMPRIMER touche F4 : hardeopy de 
l'écran (voir exemples joints) 
L'impression peut être stoppée momen- 
tanément en appuyant une fois sur ESC. 
Elle pourra ensuite être reprise en pres- 
sant une touche ou définitivement stop- 
pée en pressant à nouveau ESC (étein- 
dre l'imprimante pour la remettre à zéro 
avant de redemander une autre hardeo- 

py)- 

TERMES TECHNIQUES 

Les termes de pistes et de secteurs sont 
maintenant rentrés dans les mœurs (voir 
p. 38 chap. 1 du manuel CPC 6128) mais 
il existe d'autres termes moins connus 
se rapportant également à la division d'une 
disquette. 

Pistes et secteurs sont créés au forma- 
tage, les termes de bloc et d'enregistre- 
ment sont purement artificiels et unique- 
ment gérés par le système d'exploitation. 
Bloc : un bloc est le regroupement de 2 
secteurs soit 2*512 = 1024 octets, juste 
1 ko (le ko ne fait pas 1000 mais 1024), 
C'est l'utilisation du bloc au niveau de 
la gestion du catalogue qui fait qu'un 
fichier est toujours arrondi au ko supé- 
rieur. 



Enregistrement : ce terme remonte à la 
préhistoire de l'informatique, c'est l'uni- 
té de base. 128 octets de long, il en faut 
4 pour faire un secteur. 
Header : en gaulois, cela pourrait se tra- 
duire par en-tête. Lorsqu'il sauvegarde 
un fichier, AMSDOS range dans le ca- 
talogue les informations qui lui permet- 
tront de retrouver les données correspon- 
dantes ultérieurement mais il n'y a pas 
la place de ranger quoi que ce soit d'au- 
tre. Il faut pourtant bien stocker le type, 
la longueur... Quelque part, alors, en plus 
des données du fichier, le DOS va sau- 
vegarder un enregistrement supplémen- 
taire qui contiendra toutes ces informa- 
tions. C'est cet enregistrement qui fait 
perdre I ko lors de la sauvegarde d'un 
écran qui bien que faisant juste 16 ko, 
en prend 17 sur la disquette. 
Cas particulier, les fichiers ASCII qui eux 
n'ont pas de header et occupent juste la 
place nécessaire. 

LIMITES 

DELA RESTAURATION 

DEFICHIERS 




frapper à toutes les portes jusqu'à ce qu'on 
le trouve. 

3) Pas d'autre appartement libre, le 
mauvais payeur est mis à la porte et sa 
place est prise. Pas la peine de le cher- 
cher, même si sur la boîte aux lettres fi- 
gurent encore l'étage et le n° de porte, il 
n'habite plus là. 

Si l'on remplace le propriétaire par 
AMSDOS, le locataire qui ne paye pas 
son loyer par le fichier effacé... on ob- 
tient ce qui se passe en réalité : lorsqu'un 
fichier est "effacé", il n'est pas détruit, 
AMSDOS met juste un code dans le ca- 
talogue pour s'en souvenir et ce fichier 
est récupérable et le restera à coup sûr 
tant qu'aucun locataire , pardon, fichier 
ne sera sauvegardé. L'AMSDOS va avoir 
besoin d'une place dans le catalogue et 
de place sur la disquette et l'on va re- 
tomber dans les mêmes cas que précé- 
demment : 

- le fichier effacé n'est pas modifié, il 
apparaît en noir dans la cartographie de 



la disquette et est récupérable (fig. 2) ; 

- le fichier disparaît du catalogue; en fait 
il est peut-être récupérable car ses don- 
nées sont peut-être encore sur la disquette 
mais allez savoir où ; 

- le contenu du fichier est partiellement 
ou entièrement écrasé. Certains secteurs 
apparaissent en hachuré sur la cartogra- 
phie (fig. 3). Inutile de le restaurer. 

Remarque : ce n'est pas parce qu'un 
fichier effacé apparaît entièrement en noir 
qu'il est forcément récupérable. En ef- 
fet, le fichier qui est venu s'inscrire par 
dessus peut avoir été à son tour effacé et 
il ne sera pas pris en compte pour réali- 
ser la cartographie. Ce cas se détecte lors- 
que le nom figurant dans le catalogue et 
celui du header sont différents, le type 
ne correspond plus ou le fichier est cata- 
logué fichier ASCII. Pour ne pas créer 
d'autres cas comme ceux-ci, il faudra 
d'abord faire toutes les récupérations de 
fichiers et ensuite (au besoin) les efface- 
ments si la même disquette nécessite les 
2 opérations. 

N.B. : pour les 464, il faut supprimer les 
CLEAR INPUT (Hgne 860). 



Pour bien comprendre dans quel cas on 
ne peut plus récupérer un fichier effacé, 
il faut savoir comment AMSDOS pro- 
cède pour créer et effacer un fichier. 
Commençons par une image. 
Imaginons un propriétaired'immeubleau 
grand cœur (???). Lorsqu'un locataire ne 
paye pas son loyer, au lieu de le mettre à 
la pone, il se contente de prévenir le 
concierge qu'il faut faire comme si ce 
locataire n'était plus là. Mais le locataire 
est toujours là et s'il régularise sa situa- 
tion, tout s'arrange. 

Par contre, si un nouveau locataire ar- 
rive, cela se complique quelque peu. Le 
propriétaire va avoir besoin d'une boîte 
aux lettres et d'un appartement libre, fi 
ne va pas faire de sentiment et va pren- 
dre ce qui va lui tomber sous la main en 
premier. 

1) Il y a tout ce qu'il faut sans toucher 
au mauvais payeur. Tout va bien pour 
lui. 

2) Il y a un autre appartement libre mais 
pas d'autre boîte aux lettres. Le nouveau 
locataire met son nom dessus et retrou- 
ver le mauvais payeur devient un vrai 
travail de romain. Sans indication, il faut 
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DISCOVER 



10 riEHDRY 1 6383 : L0 AD" D I SCOVEH . B I W" >DF 
20 INK 0,13: tHK 1.0:DEFINT b-o:SYHB >ZH 
DL fcFF.l.l.l,l,I,l.l,SFF:SYHBOL fcFE 
. fcAB , tc55 . MB , 655 , Î.AB . 1,55 , &AB : SYHBOL 
fcFD.l. 1,1,1, 1,1, i,l:SYHBGL ItFC.fcFE 
,1<FE, fcFE. tFE.tFE.tFE, fcFE iSYKBOL fcFB 
,fcFF,0,fcFF.O,fcFF,0.iFF 
30 BORDER Û:CALL 348eS:r10DE 2:CALL >AU 
34888:H0DE l:boucle-0 
40 LOCATE 2,a:PRlNT"!NTR0DUÏRE LA D >LU 
ISQUETTE A TRAITER PUIS" 
50 LOCATE 10,15:PRlNT"Pi]IS PRESSER )UF 
UNE TOUCHE" 

60 CALL fcBB18:HQDE 1 W 

70 LOCATE U,12:PR]NT"1 :foriat DAT >YC 
A MOCATE 14,16:PRINT"2 forial SYS 
TEMVCALL IBB18 

BO IF TMKEY<13K>-1 THEN foriatVD >KV 
ATA":POKE 34032, 1C1:P0KE 34835, 0:H0 
DE 2: GOTO 130 

90 IF IHKEÏ(14X>-i THEN foriatl^S >TL 
YSTENVPOKE 34832, fc41:P0KE 34835,2: 
HODE 2 ELSE PRINT CHRII7);:G0T0 70 



100 ' 



m 



110 'III AFFICHAGE CATALOGUE III >RC 
120 * >RD 

130 CALL 34885:1F bcucle=l THEN 220 )Bï 
140 CALL 34816 :ad=32768:h=5:nfi=fcFF >CE 
150 FOR 6=1 TO 4:F0R ne=l TO 16:L0C >VE 
ATE h-LEH(STR*(nui)).3tne:PRINT nui 
;* "jjlF PEEK(ad)=fcE5 THEN eff=l:PR 
IHT CHRK&18); 

160 ad=ad+l:FOR 1=1 TO 11:PR1NT CHR >0U 
f (PEEKCad>>; : IF l=B THEN PRINT". ■; 
170 ad^ad+l:NEXT:PR]NT >TG 

180 IF eff =1 THEN PRINT CHR*(fclB);: >GT 
eff=0 

190 ad=ad*20:nui=nui+!:NEIT:h=h+20: >KB 
HEIT 

200 LOCATE 19,21:PR1NT"(LES FICHIER >ffl 
S EFFACES SONT EN VIDEO INVERSE)' 
210 LOCATE 19,2:PRINT"TAPEZ LE NUHE >UT 
RD CORRESPONDANT A VOTRE CHOU' 
220 IF nfi=tFF THEN 230 ELSE LOCATE >BT 
7*INT(nfl/16)i2Q,4*nfi NOD 16:F0R 
M TO 12:CALL fcBB8A:PRlNT CHRtO); 
:HEIT'rectification du fichier iodi 
fil 

230 UINDOU 66,74,2,2:1NPUT ",nui:l >FC 
F nu«)63 OR nui<0 THEN PRINT CHRK7 
):GOT0 220 
240 nft='":CLS:UlND0U l,80,l,2S:if= >IH 



32768+<nui«32):lF PEEKfaf î=tEB THEN 
nft=CHR*(lilB):eff=l 
250 POKE 34952, INTIlaf +16)7256) :POK > 
E 34951, afH6-2SG*INT<(af + 161/256) 
260 FOR î-1 TO ll:af=af+l:nft=nf*+C > 
HRi(PEEKlaf)):IF |«S THEN nf*=nf*+" 

270 NEÏT:IF eff=l THEN nt*=rift+CHR$ >PC I 
(M8):eff=0 

280 LOCATE 20,24:PRINrF[CHIER ";nu >AU 
■;" = *;NFI;:CALL fcBB18:PR1NT CHR*( 
611) 

290 ' >TB 

300 'lit AFFICHAGE PAR SECTEURS Itl >RD 
310 ' >RE 

320 CALL 348B8:IF boucle-1 THEN 370 >BJ 
330 LOCATE 1,1:PRINT CHR*(&18); n >EH 
II) FICHIER 121 STATUT 

13] DISQUE (41 IMPRIMER 

*;CHR»(M8> 
340 LOCATE 2,7:PR!NT'PISTES :0 >RL 

123456789";CHR*(ll); , r:CHR$IS):CHR 
t(iO);"0123456789";CHRI(ll);"2";CHS 
*(8);CHR*(1Q);"0123456789";CHR«(U) 
;"3\CHR*l8):CHRt<10);"0123456789' 
350 PR!N7:PRINT' SECTEURS \:FÛR >CV 
A=l TO 9:PRINT CHR*<8);CHR*<8);CHR 
*(8);A;CHRII10);:NEIT 
360 UINDOU 15,54,6, 18:CLS:F0R 1=0 T >IB 
9:PRINT STRING*(40.CHR*(fcFF] i ; :NE 
ÏT: UINDOU 1,80,1,25 
370 UINDOU 55,80,3, 24:CLS:U!NDO« 1. >KE 
80,1,25 

380 LOCATE 56,3:PR]NT"F0RHAT : ";fo >FQ 
riaU:L0CATE 5B,5:PR1NT 'FICHIER : 
\NF*; 

390 af =32768+ <nuH32):LDCATE 58,7:P >ZQ 
RINT'USER : ';:1F PEEX(afK> iE5 TH 
EN PRIHT PEEK(af);' * ELSE PRINT" 

400 IF P£EK<af+i6)<>fcE5 THEN ne=PEE >UX 

K(af+lS) ELSE ne=0 

410 LOCATE 57,9:PRINT ne;' FJffiEGIST )LD 

REHENTSVLQCATE 57,11:PR1NT ne/4;' 

SECTEURS" 

420 LOCATE 57,13:PRINT ne/8 ■ BLOCS >YJ 

■: LOCATE 58,15:1F ne=0 THEN PRI 
NT'PAS DE HEADER':GOT0 590 ELSE PRI 
NT'HEADER EN :" 

430 ns=( (PEEXlaf <16)i2)H0D 9)+l:L0C >PC 
ATE 58,17:PRINT' i SECTEUR ';ns 
440 IF fûriat*= 'SYSTEM" THEN ns=n3+ >YG 
MO ELSE ns-nsttCO 



T|t450 PDKE 3SÛ12,ns >LG 

! 460 np=1NÏ(FEEKiaiMfi)/4.5):lF fora m 

at*='SYSTEM" THEN np=np+2 
. 470 UINDOU 1.55.18,25:CI.S:UIND0U 1, >TP 
I 80,l,25:sui=0 

480 LOCATE 58,19;PRINT" > PISTE " m 
| ;np:POKE 35015. np:CALL 34998' leclur 

e du header 

490 ' >TD 

I 500 'III ANALYSE DU HEADER III >RF 
^ 510 * >RG 

1 520 FOR ï»0 TD 65:5u«=sui+PEEKl3502 >TW 
I Gti):NEÏT:IF PEEX(35093)+256fPEEK(3 
: 5094)<>sui THEN LOCATE 58,22:PRINT" 

FICHIER ASCII":GQTO 590 
i | 530 LOCATE 58.24;F0R 1=0 TD 11:PRIN >DL 

T CHR*(PEEK(35026+i));:!F i=8 THEN 

PRIHT".'; 

540 NEXT m 

550 LOCATE S6,22:PRINT n TYPE : ";:ft /HB 

=PEEK< 35044) AND tF: IF ft=0 THEN PRI 

NT'BASIC" ELSE IF H M THEN PRINT'B 

AS1C PROTEGE" ELSE IF ft=2 THEN PRI 

NT"BINAIRE" 

560 LOCATE 11, t9:PRlNT"ADRESSE DE C >FY 

HARGEMEHT : \PEEK< 35047) +256#PEEK( 

35046) 

570 LOCATE 1 

FICHIER 

35051) 

580 LOCATE 11, 23 :PRi NT" ADRESSE DE L ) 

ANCEHENT : ":PEEK(35052)+256tPEEK( 

35053) 

590 IF houcle=l THEN 730 : 



ll^liPRINT-LONGUEUR DU ; 
';PEEX( 35050) +256* PEEKl 



600 ' >RG 

610 'III AFFICHAGE SECTEURS OCCUPES >RH 

lit 

G20 ' >RJ 

G30 IF fonat*='SYSTEM" THEN tm=Z E >LD 
LSE fjpC 

G40 FOR c^O TO 63:at=32784*ld32) :1 >YR 
F PEEK(at-16)=iE5 THEN 690 ELSE FOR 

b=0 TO 15:iib=PEEK(at+b) 
650 IF rb=0 OR nb=tE5 THEN b=15:G0T >FH 
680 

660 p/=((nh«2)H0D 9 ) +9 : p»=î5+f ■♦ INT >KE 
(nb/4.5):L0CATE pi,py:PRINT CHRttliF 
E):IF ppl7 THEN py=9:pi=px+l ELSE 
py^py+1 

670 LOCATE pi,py:PRINT CHRtlfcFE) >BR 
G80 NEIT >EK 

690 NEXT >FA 



700 ' 



>RH 



710 "III AFF. IHPLANTATION FICHIER )RJ 



▲ 



730 FOR b=Û TD j 5:nb=PEEK(af +î 6*b ) r >YD ■ 
IF nb=0 OH nb^iE5 THEN b=15:G8T0 78 
ELSE p<M5+fiHNT(nb/4.5);py=(!nb 
•ZIHDD 9!+9:L0CATÊ pï,py:PRINT CHR1 
tïPCîj 

740 IF py = 17 THEN py=9:pi=p«*l ELSE >LC 
py=py+l 

750 LDCATE pi,py:PRIN7 CHS*(tFCJ >BN 
760 NEXT >EJ 

770 ' >TE 

780 *IH AFF. SECTEURS RÉAFFECTES I >TF 



800 etat=PEEKlaf>:!F etaLOIrE5 THEN > 
860' fichier pas effacl donc pas d 
e pb. 

810 PDKE af.î£5:CALL 34910:F0R b=0 > 
TO 15:nb=PEBC(34894'b):lF nb=0 OR n 
b=tE5 THEN b=15:G0T0 050 
820 p» = 15«fn]NT(nb/4.5):py=nnb»2) > 
MOD 9)+9:L0CATE pi,py:PHINT CKMI1F 
G): 
830 IF py=17 THEN py=9: px-px+i ELSE > 

py^pyM 
840 LOCATE pi.py:PRINT CHRKfcFB) > 
850 NEIT > 

860 POKE af,etal:CLEAR INPUT:CALL t. ï 
BB18:boucle=l:nf^fcFF 
870 ' > 

B80 'III MENU GENERAL Itl ) 

890 ' > 

900 LDCATE 5,3:PR!NT STR]NGI(50,(.20 > 
):IF INKEYU41--1 THEN 970 
910 IF ETAT OIE THEN LOCATE 5,3:P ) 
RI NT" EFFACEE LE FICHIER ";NFii" û 
/N ?* ELSE 940 

920 IF INKEY(4SH>-1 THEN 900 ELSE ) 
IF INKEY<34)=-i THEN 920 
930 nfi=ni»:POKE af,iE5:nfi=mm:eta ) 
t=tE5:G0T0 1060'effaceient fichier 
940 LOCATE S^tPRINTRESTAURER LE F > 
ICHIER ";NF*;" 0/N 7" 
950 IF INKEY(46K>-1 THEN 900 ELSE ) 
IF, INK£Y(34)=-1 THEN 950 
960 POKE af,0:nfi=ntM:etat=0;GQTO i ) 
060' restaurer fichier 
970 IF 1NKEY(5X>-I THEN sct=PEEK(3 > 
48B2H256«PEEK(34883):G0T0 ilBO'f in 
i pour cette disquette 
980 IF INKEY(20)=-1 THEN 1020 • har ) 
dcopy 

990 POKE 35555, l:adresse=49312:F0R ) 
li=i TO 26:PÛKE 35626, lNT(adresse/2 
56) :POKE 35625, adresse-256HN7!adre 
sse/256):CALL 35594:1F PEEK(3S555h 
THEN 1020'iipresslon stoppfe 




1000 adresse=adresse«14336:IF adres ) 
se)G5535 THEN adresse=adresse- 16304 
1010 NEIT 

1020 IF IHKEY<13)=-1 THEN 900 : 

1030 • 

1040 'III REMISE EN ETAT DE L'ECRAN : 
lit 
1050 ' 

1060 CALL tBBO3;L0CATE 5 , 3 : PB I HT ST ; 
R]NGï(50,i20):[F etat=lE5 THEN ch=i 
FF ELSE ch=tfE 

1070 FOR b=0 TO 15:nb^PEEK(af+i6tb) ; 
:IF nb=Q THEN b=15:G0T0 1100 ELSE p 
»=15+fi+INT(nb/4.5hpy=((nhf2)f10D 9 
)+9:LQCATE pi,py:PRINT CHRKchJ 
1080 IF py=17 THEN py=9:pï=p«+l aS : 

1 E py^pyH 

' 1090 LOCATE p»,py:PRINT CHfitlch» ! 
1100 NEIT: IF état OfcES THEN 130 : 
1 110 FOR b=0 TO 15;nb=PEEK(34894»b) : 
:1F nb=0 OR NB=fcE5 THEN b=15:G0TD 1 
140 ELSE pxM5*fi*!NT<nb/4.5hpy=i( 
nb«2)H0D 9H9: LDCATE pii,py:PRINT CH 

mvm 

1120 IF py=17 THEN py=9:pi=pi+l ELS ! 
E py=pytl 

1130 LOCATE p«,py:PRINT CHRIUFE); ! 
11*0 NEIT:GOTQ 130 ) 

1150 CALL MB03:P0KE 34838, fc90:POKE ) 

34863, HO:CILL 34616: IF sct=PEEK(3 
4882)t256«PEEK(348831 THEN 1170 
1160 PR1NT CHR*I7):H0DE i:LOCATE 9, ) 
lOiPRINT'LA DISQUETTE A ETE CHANGEE 
VLÛCATE S.UîPRINT'RECTIFIEZ PUIS 
PRESSEZ UNE TOUCHE":CALL &BB18:G0T0 

1150 
1170 POKE 34838, kflOtPOKE 34863,180: ) 
CALL 35538:H0DE IsLOCATE 9,12:PR1NT 
"UNE AUTRE DISQUETTE 0/H ?■ 
1180 IF INKET(4610-1 THEN CALL E ) 
LSE !F INKEY(34)=-1 THEN 1180 
1190 CLEAR:CALL U3BO3:GOT0 20 ) 



+ n 

40 SQiie=0:adresse=3553B:FOR i=Û TO >YG 
148:READ al: POKE adresse+LVALI'l" 
ta»):3Diie^Qiie<VAL("i' , ta*):NEIT 
50 IF soue O20222 THEN PR]NT"ERR£ >T2 
UR DANS LA DEUXIEME PARTIE":END 
60 PRINT-DATA OK : METTRE UNE D1SQU >UH 
ETTE PUIS PRESSER UNE TOUCHE" 
70 CALL S.BBieiSAVE-DlSCDVER.BIN'.B, >Nfl 
34816.871 



DISCOVER-DAT 

10 CLS:some=0:adresse=34816:F0R i= > 
TO 206:READ a»:PDKE adresse»i,VAL 
("t , tat);sooe=sometVAL("ii"+a*l:NE 
IT 

20 IF soue 018368 THEN PRINTERHE ) 
UR DANS LA PREMIERE PARTIE":END 
i30 FOR 1=35023 TO 35537:P0KE 1,0:NE > 



BO END 

90 DATA 21.44, 68, C0,D4,BC. 22,3F 
100 DATA 88, 79.32,41,88,06.04,0e 
110 DATA Cl, 11, 00,00, 21, 00,80, C5 
120 DATA D5,E5,DF.3F,B6,E1,DI,C1 
130 DATA 24,24, OC, 10.F2, 01,00.06 
140 DATA 21, 00, OO.ES, 54,21,00,80 
150 DATA 5E,E3,19,E3,23,0B,7B,B1 
160 DATA 20,F6,£1,22,42,88.C9.00 
170 DATA 00, 00,00,00,84, 3E,40,21 
1B0 DATA 3E, CO,CD, 08, BC.C9, 00,00 

! 190 DATA 00,00,00,00,00,00,00,00 
200 DATA 00,00,00, 00,00, 00, 21, 4E 
210 DATA 88,06, 10, 36,00, 23.10.FB 
220 DATA DD,2i,4E.B8, 21,00,80,06 
230 DATA 40,CS,E5,7E,FE,E5.20.09 
240 DATA E1,01.20,00,09,C1,10,F1 
250 DATA C9. 11,10,00,48,19, 11,00 
260 DATA 00,06, 10,iA,B7,28,E9,E5 
270 DATA 1A,BE,20,14,E5,C5,06,10 
280 DATA 21, 4E.68.BE, 28,08,23, 10 
290 DATA FA,DD,77,00.DD,23,C1,E1 
300 DATA 7E,B7,28,03,23.i0,El.El 

' 310 DATA 13,OD,20,D5,ia,C2,21,44 

. 320 DATA 88,CD,D4,BC,22,CF,B8,79 
330 DATA 32, D1,88,0E, 00, 11,00,00 
340 DATA 21,D2,88,DF,CF,8B,C9 
350 DATA 2i,E2,8A,CD,D4,BC, 22,3F 
3B0 DATA 88, 79,32,41, B8,C3,0D T 88 
370 DATA B5,0O,C5,F5,CD,2E,BD,38 
380 DATA 07,F1,CD,31,BD,37,C1,C9 
390 DATA 3E,42,CD,IE,BB,28,ED,CD 
400 DATA 03,BB,CD,18,BB,FE,FC,20 
410 DATA E3,F1,C1,AF,32,E3,BA,C9 
420 DATA 3E,1B,CD,E4,8A,D0,3E,2A 
430 DATA CD,E4,8A,D0,3E,04,CD,E4 
440 DATA 8A,DO,3E,78,CD,E4,6A,DO 
450 DATA 3E,02,CD,E4,8A,D0,21,00 
460 DATA 00,06, 4F,C5,0E,08,E5,06 
470 DATA 07,AF,CB,06,17,F5 I C5,CD 
480 DATA 26,BC,Cl,Fi,10,F4,CD,E4 
490 DATA 6A, El, 38,02, Cl , C9, OD, 20 
500 DATA E5,23,C1,10,DE,3E,1B,CD 
510 DATA E4,8A,D0,3E,4A,CD,E4,8A 
520 DATA D0,3E,14,CD,E4,8A,D0,3E 

r 530 DATA 0D,CD,E4,6A,C9 



>LH 



A 




Il est difficile de taper un programme d'une revue 
sans commettre d'erreurs ! Quand les erreurs sont 
signalées (Syntaxerror in.... Unes doesnotexlst in... ), 
la correction est facile puisque la ligne est Indiquée, mais 
lorsqu'au "point de vue" du CPC, le programme est cor- 
rect, Il peut en être tout autrement pour le lecteur. 
Si le fonctionnement du programme ne correspond pas 
vraiment au programme original, alors il est impossible 
de retrouver l'erreur commise, à moins de comparer les 
lignes de votre programme avec celles du journal, mais 
c'est très long et on risque de passer sur une erreur sans 
la voir. 

C'est pourquoi ce programme a été créé; Il est à utiliser 
si vous ne retrouvez pas vos erreurs. 
La frappe d 'un programme de votre Journal favori (CPC) 
terminée, vous faites *RUN* et là, vous corrigez toutes 
les erreurs signalées par le CPC en vous référant au jour- 
nal pour comparer. SI malgré cela, Il ne tourne toujours 
pas, suivez cette procédure ; 

- sauvez votre programme en ASCII grâce à l'Instruction 
: Save "nomprog'.A. 

Puis, si vous êtes sur K7, rembobinez la bande jusqu'au 
début du flchlQr: 

- chargez Anti-Erreurs; 

- entrez le nom de votre programme et insérez le sup- 
port où II se trouve (K7 ou disquette). 

Après quelques secondes, les numéros de ligne vont 
défiler. Vous remarquerez qu'à chaque ligne correspond 
un code de 2 lettres sous cette forme : >XX ; c'est le code 
qui va vous permettre de savoir d'où proviennent les 
erreurs. Pour cela. Il faut que vous compariez les codes 
du journal à ceux de l'écran. SI un code diffère, notez 
sur papier le numéro de ligne qui correspond à ce code. 
Continuez ainsi Jusqu'à la fin du listage. Le défilement 
terminé, recherchez votre programme et corrigez les lignes 
que vous avez notées en comparant avec le journal. 
Faites "RUN" et, ô miracle l.ça marche. 
Attention, lors de la frappe du programme à traiter, 
n'omettez aucun caractère car Anti-Erreurs les prend en 
compte et bien sûr, ne tapez pas les codes de contrôle. 



ANT1 - ERREURS * 



* VERSION 2.« * 

tt II 

le) CPC & 6. NQE 19B7 



} < INITIALISATION » 

i ■ ««««««««<««««« 

S ' 

t ON ERRÛfi SOTQ 125Ô 

i MODE 2 

i DM 6*123) 

i FOR I=y TÛ 22:READ G$:G*iIJ=GÏ:NEXT 

i ATTENTION LA LI6NE DE DATA CI-DESSOUS NE CONTIENT 

3 TOUTES LES LETTRES DE L ALPHABET !!! 

S DATA A,B,C,D,E,F.G,H,J.K,L,M,N,P,Q,R,T,U,V,W,X,Ï,Z 

i ' ANTI-BUS FICHIER 

3 IF PEEK<HIMEH+1)=255 THEN 2BÔ 

i OPENOUT "CPC" 

i MEMORY HIMEM-2 

i CLQSEOUT 

i POKE HIMEM+1,255 



A 



m 

;CHR$(24 ,>6U 



286 DEFI NT B-Z 

2% ■ 

3W BORDER 6:INK 0,1:INK l,i6:PEN l: PAPER 8 

310 MOVE 0,16:DRAW 650.16 

320 PRINT ÏAB12?) "A N T I - E R R E U R 5 

!i"Version 2.0";[;HRî(24) 

m MOVE 0.385:DRAW 650.385 .UJ 

340 LOCATE 24.25:FRINTm REVUE DES STANDARDS AhSTRAD" ;EV 

350 WiNDQW 1,60,3,23 ;>NL 

360 PIÏ="Realise Par Gregorv NÙE" >HJ 

376 F$="" m 

380 FOR 1=1 TD LENtflls m 

390 F*=FÎ+MIDÏtM$,I.li >FL 

400 LOCATE 76-I.5:PRINT F* ;UL 

Aie FOR T=l TO 100 ,>LÛ 

42? NEXT T,I ;EF 

«h ■ m 

44» m**t*****iHi*m*mm**m***+ >rj 

450 ' >RK. 

460 LOCATE 2.1:PRINT"ENTREZ LE NOM BU FICHIER : "; >XT 

47Ô INPUT "",NF$ ;>FD 

48» IF NFt="° THEN PRINT CHfi$l7>:GÛTÛ 46« ,GR 

490 LOCATE 2,3:F-RINT B WPRMANTE OU ECRAN U/E)?" M 

500 R$="":WHILE Rî=""iR$=UPPER$(INlŒY*) :WEND >NK 

510 IF R*= 1, I" THEN CA=S; PRINT "BRANCHEZ -LA. . . " ELSE 540 >XD 

520 F'fiINT»B,CHRÏ<27];"!";CHR*l20! ,>AR 

530 GOTO 560 m 

540 IF RS="E" THEN CA=0:6QTO 56" -Yû 

550 GOTO 500 ;ZB 

560 CLS:lQCATE 2,3-: PRINT "TANT QUE LE LISTAGE N'EST PAS M 

TERMINE" 

570 LOCATE 2,5:PRINT"NE PAS ARRETER LE MAGNETOPHONE OU ,>JW 

NE" 

5B0 LOCATE 2,7:PRINT"PAS SORTIR LA DISQUETTE" >TL 

590 LOCATE 2, 16; PRINT "PRESSEZ UNE TOUCHE POUR LA LECTUR >HH 

E" 

bm E9tL &BB05 >LH 



TRAITEMENT DU FICHIER ■ 



660 GPENIN "!"+NF* > 

670 CLS:PRINÏ"TRAITEMENT EN COURS..." ï 

6B0 IF L£N!AÏ>=255 THEN A$="":L1NE INPUT#9.B$:G0T0 1160 > 



690 LINE INPUT*9,BÎ:AÏ=BÎ 
760 IF ffiOS THEN GOSUB 1310 
710 IF INKEY(Ù6)=0 THEN STOP 



CALCUL DE LA CLE DE CONTROLE 



730 ■ 

740 ' 

750 A=0:FLG=0 

768 FOR 1=1 TQ LENlAt) 

770 LÏ=MID»(AÏ,I,1) 

780 IF LÏ=CHRï(34» AND FLG=1 THEN FLG=0:GOTfj 340 

790 IF L*=CHR$<34) AND FL6=0 THEN FL6=1:BGT0 640 



B00 IF L$=CHfiï(32> AND FLSOl THEN 850 
B1Ô IF L$=CHR»f39> AND FLG=0 THEN 960 
820 IF FLS=1 THEN 840 
B30 Lt=UPPER$(L$) 
840 A=fi+A3C(L$!+I 
850 NEXT I 



\»«« 




B70 CH*=3TR$(A> 
8B0 CHÏ=PIGHTÎ(CHî.LEN(CH$>- 
890 L=L£NiCH$!:L2=LENICH»J/2 
Sfl A=VALiLEFT*(CHt,L2!) 
910 C=INTlA/23l 
920 P=A-(C*23) 
930 C$=G$(P> 

940 A=VAHRIGHT$<CH*,L-L2)) 
950 C=INT(A/23):P=A-(C*23) 
960 L$=C$+Gîi'Pi 
970 ' 

980 FOR 1=1 TO ù 
990 L*=MD*(A*,I,D 
1000 IF L$<"0" DR LV'9" THEN 1030 
1010 LI*=LI*+L* 
1020 NEXT 

1«30 VMÏ="":FOR 1=1 TO LEN(A*>:IF ASCWIDï'.AI.I, DK32 
THEN V«$sVM$+" " ELSE VM$=VMÎ+MID*(Aï. 1,1) 
1040 NEXT I:8*=Vm 
1050 

1060 IF CAOB THEN 1070 ELSE 1090 
1070 PRINT LI$:TA6(10) ">"iC$ 
1080 LI*= uu :GOTO 1160 

1090 LIÎ="":FfiINT#CA,L£FT$(B*,55i:iABi57! ">°:Ct 
1100 IF L£NfB*K55 THEN 11 w 
1110 FS=1 

1120 B*=MID*IBî,56,LEN(B*)j 
U30 PRINTtCA.LEFT»(B$,55i 

1140 IF FG=1 AND CAOB THEN F3=0:GÛSUB 1310;GOTO 1150 
1150 GOTO 1100 

1160 IF E0F=-1 THEN CLOSEIN ELSE GOTO 680 
1170 IF CA=0 THEN CALL feBBÉ>3:FRINT TAB<50> CHRSi24J;"UN 
E TOUCHE.. . 11 ;CHRÏi24);CALL &B665 
1180 CLS:PRINT"HA1NTENANT RECHARGEZ 
LES LIGNES QUE VOUS AVEZ NOTEES.." 
1196 END 
1200 ; 

1210 ; Ci«««U.4<<U«<y\<4« 
1220 'i TRAITEMENTS DES ERREURS > 
1230 ' <«■«<■««■««««<««<< 
1240 ' 

1250 IF ERR=25 THEN CLSîPRINT CHRÏ17) jCHR$(24J; "FICHIE 
NON ASCH"iCHR*(24):END ELSE CONT 
1260 

1270 ' «««««.<«;«««««« 
1286 '< ATTENTE TOUCHE... > > 
1290 ■ «««««<«■<«««(.«« 

1300 ' 

1316 C0M=CDM+1:IF C0M>19 THEN CALL &BB03: PRINT TABI56) 
'UNE TOUCHE..."; CALL &BB05:CLS:COM=1 
1320 RETURN 



1 ET CORRIGEZ >JC 



>ekO 





IN FORMATION F 
COMMUNICATION 

DIALOGUE 3615 MHZ 






I De nouvelles rubriques arrivent ! | 


























y TOUTES NOS REVUES 




En 


DIALOGUE 






Sovoir 
infos.. 


comment nousjoindre, les sommaires 


les 


direct, vos questions, vos idées et suggestions 




REVENDEURS 






QUESTIONS-REPONSES 




Ce 
gre 


tains revendeurs français disposent d'ur 
tuit pour leurs promotions 


accès 


Unen 


suvelle façon de poser les questions e 


de 




voir les réponses faites ! 


NOS PRODUITS . 














500 PETITES ANNONCES 




La rubrique sur nos productions avec la possi- 
bilité de commander 










C'est en moyenne ce que vous trouvez sur le 
serveur. De quoi faire votre choix ! 


BRETAGNE EDIT PRESSE 










Dé 
noL 


ormais vous trouverez sur le serve 
veoutés diffusées par cette société 


ur les 




BOITE AUX LETTRES 






Une m 


anière de correspondre entre vous ol 


de 


HOROSCOPE 




nous laisser des messaç 
- ARCADES - AMSTAR - 
HERTZ -CPCREDACT- 


Ses. Nos BAL : SORACOM 
PCOM PATI BLES - MEGA- 
ASTROLOGIE PRATIQUE 


L'hc 
sue 


iroscope 1 988 mais aussi depuis peu k 
du 15 au 15 du mois 


men- 




Au téléphone, 15 minutes ce 
Par minitel . il vous en coûte p 


ûtent en moyenne 55 francs 
our le môme temps 1 5 francs 






- 


BON CHOIX 3615 MK 


Z NOUVELLI 


E VERSI 


ON 



VOUS AVEZ LA PASSION? 




NOUS AVONS L'INFORMATION! 



